dmifcUf3ef8,uz''4;(u9PO=N#hi)Ya$@)2_ڛ' ) 'bR \.KQAu
n3)t3sbf >ӹyR`Y?Y'ϙnkyo+&//s㠚Okǒ0}.˲9n`N_R.ϗcAIes>/ݼ7y=n_fY#rssF, v` (Q ۏ&b] vYv z) P>70vs8K^;%#`r o p wnӕurNFt:Q.A@dN.> (My}AgV| a Yܠ0Ax .<ʺ9.8At8ӝq׃?av0/+M${]ng .j%f/UJ _]%YӉd(EN笖=
:Ϣd*AoK
>B=([ɣIeMJ>)[Ps9s 2VßȬ*=ghK2/
Hb X 3
6|@eˀ,p'G
XF@Y ,rXB=Dl+ He=%T]U}H S,bd@eD[c k EXc5Be8<W9d }VWA WPgD!+eMD;BQE%LQ(h8%*@1X8xbEb^%J3HV
T$LP LiTx8
3p EE 4澺I:i[YN1-bԿr 2RHS=
ijgF 1TM sڐF2SC Y 3%t zPH`ԔJ.gaĂ0Mtc VRW7KTLM 5 %fGDRIJ k w.2kSj69Q% RGJQ[@;'3[ V
2bGITU ret$ȳb{=CE)?Ј 0fr8U벼`TcU?.bёh5 pФYbHȰ 9bMn B t44 9 h8DXa}JktRe=A$fPԟ"1tR?^8gL\ W$Y^2T ځ!p "&Nta8^Ɋ
(1.蚑kfj0͛?
B'P))! LE紅 JHueA /4.٢d@Ce aN}UkZS$V}#,g4BX턅I r&r5_>hJIYM`OL0BѦ>aA3yeFo5
\6upz4eNّvE&
)tYF;CM1ZD:@umƆIpih6kA0Dhh nӈ?ѝcdE#[_ z 4fm..DBh֤]nd!>|v5XFX8[LW_ãk>4 W2p(0R7w6"nxK?e٨nYlzR
d xB?'G R|sjdXbɔ Mx3^7P
'0hݭcdCǏd Z ǨZ{<^mY) +d bP ó~- " ׁ,Y:>hlz-2/Vhq4 Ƨsy`D uv5Uˍ$fP[08K<$l d̗ bQ@HIx# Vi>T
Ikaq, ϫ4`AB c ৬}u
P7bҩ.cKh 狥dr?i*p{-aըi6R0m*xm$CiJP4*5~AuY`r"lii
]ct 2unx
-9ZA6uhڒ!5ZjQ
5`n u'O$[Č0GF5jzoQ-k"N-dUM~h-[XVy34[|,9nOFݬffuXpﶲ HU!bRnl XkqI`}2;rDxr?pt_<=d&'arbS _:փߚ0qeԨ <mULV}Z 65ԕ DMRalVYkn./r/]r7.x SYRӕ/p[ӊc`, rKO + E.d6u9NGzrzϪ5d} D%!>-q]F\ԃ"kGm֧qܦW&
Aeia؊1 npةk'!V9ԎҪuN ]e! yB="l KIJEs+FRi2O<.O*vvLS"l$X {4#hP
Y+RpCm@C:'ٖ&c,t`Y;OS*MT|:q- 7LcvA[sY}:SV+"
4'; ;V * ɔ?i(6
j4z5k1ۍm_ێ hJsckK(*IQp5y H`n,5߮ziȐ`,G1Y}Zk3}dP-B3: 4
5W]$ CCt*SAS(A#+Vvi+6KG$ʦi9r&)0&'עҤIW@+%1}R#q~)/t.k[aѠ?ɪ,;"QԢ 6N|A$I=p>i=l'p?ަE˳.o?n_?7?õ/A!ڷJ + TSbED YGTПS
+ .X$BTh{t&mZ7LgF lAD ^ԫ%xҩx:aZhg[r}<:mZGxwh,Egy/蔇CUV 9 {>vv >E~V|^ [C_f MKЕvv>jT~O\k9<7X|yj7wB `8}[VL0P#| >8}?r ^L3+:{V~ޗ+b$aZ\^s1wo ^sc ö]SbU9U/dlڿZygsgߵ[~tt? ۲ʩڿO&'eܾVm)kSxo m?
sLOnEM[ Rο k&sϗD5rq)p7|w;o>?>qxACnno5{on[s 6lꪫ~5X^zG::~_z|ܼiS֬>|㯟8y~?Xyٺ}Xz+cmg ?v,ܑٟo]߲c/?|̺f{goܷ/y|W_2neS57<}+7KG }co]Ow^Cfܵ~ m?pLx8~;{T8qĉהu?w9Зn饝+:.һKp+?|{ܮ[Ȭ+}#/_*Cʛ " ~Rs++EUm 0Dԓ钤|}SFi
-p "dp/ jj >X/MLL$S0GohGYN><<֥
Sj2F=]Y9O3VE[~mL5?+ ,&ߙ98 r%³^(>|x闳g^l|>\|~}bbc|cu$$YScbud$5YSd$Y<dOdܿRll Z{5~|o+qq1FIk֍|"\ƧFxx?-Z/6J6?iQr|Oqs.czE$k?=(/yO55ۢq:Q:L}S]
X7.;$% j^l|n9I7I`1 h/F: q 9_0A
vQ9TA!XwR.Qn dV?74z/`0$]٤%ER[]:W d]:,Vd|Pi"Q(;H PI:E L >= ݙAvEB!}+w@O_iPV}
G+J;/HS_|+Sq%3By'A"Ho2;t|, zntaQh /23F2~A /_ۡ ܋ ¯_::I
X)c& -d))+a^\I%J*C)
EQ Kͣ+t憂EGE+~"Ώ,
[,m{lۭ8ϪꄆO`Q`/"@Y _ߢ%{;> >< np@lF'#^74m Nq h"@@ /+B G 7t>4u h%D/LBE snbB5\PgL{9/t GF j $%uަhbgj2qCY? :_E" 4 { jv?F4/e~~{kTY^ڃՍ
2f q BxK;1MpO$-4h
"̅$aB}SOw`|l7| qt%:F`ߥ)՝:7 Ͷ34y1x.9g*o "du O^ b ^Yo >uEU{|}
v*͈vH]T0/ BA I1ӂ$Q#ȈBH$ÕT$x @9CZvqDZ
-% 8o>;1`f|rdTn'< G-LH
I|y?{
KWpTNvpW!"A uu/%Dxd( 0 0`o)IJ)ZQnz B%hIgQc^0 {
r 3SĂJּSBQ$ݣ-`!MZ0L%z9ճŲE|e(`ZiJq666I*JArI2
[Pe^bBH Vtα@ Ii sL+N(Ir)ԦFĿ|pGF 52vŪN) Pf`OMCJUQiBMJH¥aP.-+*[)S9WQ)USaQ,\Rz_ Wɬ$̬VCFL;~"8#:7ZbK`g^y/x[I|: 7n'( xʠ `hPuI6%aU[d 3&yj:)627< 3YVx4U6V WC666=1Suƻ/1JQidB^%"Ӕ`Dp%u6#ad "MC w&A#NRH4]Af9+#݅ȚS`|\PlB7 S
>&$!˺
:FʚTs4Pf&j caÜ/Gc92sQQ w>Tw_Dx
Y Hc=#_~RC_k8r Nv;{iPG^Ac68 =,
m3 Ւ6npGRb}iyo
]brYN
B=ªjwE1ŶFᖂv1n~wʷGS
s6GYfگ >.ΘΘI]W]'YTY M=@"6ε|UV}/8@1ؕ A%*N}k
f k%ҳb j PYXRV({EBLV
ws!Ȭ,o %F]7HǭNSOgNg/Ԛҫ9}yL hlKjѶl9iz1|iv&wùU*ƲHۼ+Qe|ޅr җ%7KWAq1H1i1#ٯ897 ''(1 G01|g'S'RR:
ucW/w| rcaҽP;r]r?.XE"z2TT|z~oBlo
@MםBg"# EY @ yz~{ܟo
z}b *Gm-i&VJ܂w4 jBtv\~BA)2!tڞC,V5_-5fL@{,*6ṉkuťw:ݛlc٦coL^PR}vxL'U>W 1_xn/ 2|.$B.b=RNx~|`U' r- "'Ȋ8{W '`w}k m݂ ܙ 蝰Rb'ݍs=m#ufd|9|bi wџ=;N~_
\X InL >?H19Ǯ4W2 j ;yp}I:> ޮ@ \qSOFwv&Б': Ɠv[iŨs8m\Nqwy]#MZ|7N( LฉuI$
HW%E|n):d Нv'`IkOH4 s $]ɘNO5/b%q>uetF]\??.g\Y|F7Fq*P(1*= _5ؚ@zh8ށluݏyC~~z~N87AC>0״߯=K-mDLZZ?a^Wsduduĸ
4RE6\.Gw|J>+3[f4`;lGCV `Z9uz"157Bj?zE,Z~X/0
9?SG7e ®E`@F 飰 慶G3MsNmHN(aw=v-{Kw.'eAjIw^A}s6Cxe)r$ ۹{y
6 `Q05$HF.
0#|\Y?K4 R> uQ5
xU@a͋@ㄜ ?&-n
lbLcE4$)B
s|XּqE#oZigܚ}v ~v#DY>z>8 G y+-<- :plj Xݠ$w "OR? XZ8MJn"6LXKKi
By60<[Tu1"ZOŹz9$+Oa N(Q1_5 bWƝ|Np73 { i !X)iX/رƢk߇
1oHݐMXA5 :Q4#S)ў/ilSWČ`u\=Ԟ_ޠ^[UD699Tf"N9βNݞ[{:zm.K*C|+? >WSJɯ# s | =N
[Np
O|w .!
D}d\I2]L份Mpk"bN/ s"4>'|B$YMGӼϐy ]e# o㟧0x} 6G(cu;Yجu w1h xӔ)7N J 7W k*d(Sshx-^2 =B[ȑ>6ıU!Jtcf~y(YTMCrƖX2Î' ýR2ΞDt( ,gy /#:
ҵ["OEjcX* ab!"C@!gގ!qz
#
-%4oLAgb$ J`eATC]id[%i
딷ZXn=MP^R? &83ddiKZ vk͗W<6s6a.b>>a~'8n1 53fm=K兞+;ճqG'/q34oi7>qKո$<$︐ %*`XGז2~+[ -K
uK;NW\:Z
Z:u@zSR PIdc*Cr5|J$n8=JS}oS,M¼4H}$-wG5tUE.n[lmדbOkJp^ 쉑/y]Mx,,HKͺ7
% ]z^SX|##?ﲤ! 9v%kx(>=z*y{
?O)rB oC}F|m
X?WdLBY%3^ge-+zRl} FyuyTQxIm+B"1u-|1' IW;u 6Ϲxz2d]Y<'_/枼FFC2,bhc7,_rH M>PHόrjBK5M"J:6Q"Y;^:_jҌ5OЄ[]b]xřbέftbaEYip8 ӛ
3_7bZiHafA`Z$!䁗{a1,+aOىtQEOS.YO o:A~{2ͨi\ VBf>J+Iݶ l&ۜ/
;8!P M2t\VwD"z0dD8I$8i5l^$_I';}3x,. M:ߢ#wo
_0 w1cnTpanQTu|w(-uV6X} Q ,|,DеJx okNqB0M:~b"p ,[N$3aј ̩b =.z]C[9Zq z85~?"CvM|EW
j,C8k! ,玌|=h|X5i&˽&MQ^>4%_JEW8%XBr>cKQ)hRX5Rȸ3:Xokty*ڵи.^dܗ1APUUr-Hd (? 2AL>9>-(f) 9GǀuJ!ŷR2hkpI
ѓe+dR'@WrၨgJMXn0&FyMٍӎur9]9MJDzE[hʀis<;4l U5x ^f QO'j~pFI+4 F%JrEn$F n/)e f uN#=oZ #qeЉ X \OTƚB &y
0#>e|~qJOɄ I7}/R]ԝIffO;E } ϰOb1ZBlw\@PQvM8f]N17C#Ѩ[pn_Z
7b= ]#yOnDo0%MO}
b9Җa7-w MNI1{n# gM`jiW.LfZ%)M[1͎pcWZeD B[0rC
!$u$SD!W8otSӿBMPSsZeg7c;ߙ2PL+^%։|7{aU EC Ů!&Gs&ڕ2JkJe@I\jrJ
-LNk]b˷]mQWv H )f?:g KcK˘vڶ Lcut!i-e9]r«-#]iM-GźuEAGHإ!1+7p]:B
]#Af$ G1&11ث̕[ .<
֕[cN Zu/IJ#cp10Q*~LVth+Š;>pY. 7?k[pn{ܴ*xELi[
RL~0`Z_䐿*2 yШh`Rs2u~d44nc?)\GLCd%<CwO 8>iۨIh `DZ!ErЖ*`|S<>X9cbQ7S//:BL%oἡҊې1%ovN-1ҢH<n'Vjce=yH XOqzxxgs⽽X0剃t3uyq~CmQe
140g̪ ?2JV- o=#ctHd)dM]GԔ%my˽G#۷ hA:4F'Is){-ޥMӡ`ʭWZz;9G$;nzSs:
}i 0)02+ yٙ`%爰O27m/]YDd|uVz kNx!3{
㐫CY7P V7_Q6({ɼ&5\][Y ~ 5۳ T+;8 h H g9HSg9ѿu gRLC3,s\Iέ뀬dW7evrs-stG£$~+}Fgz2ŏZuUTM^&2(a=|
"ӫyg p"Ňz07l E^ /Ȥc0@&pzZmY> `z=. /jg$=UX]~Z,F7Z'@~` [ vQ cmu֣[O .oqU5,Zu4
*dh)V/b}1vr}q]A2mT9Up,z|"Ԥm0V FŖU>NqX (;{ڗȾ'R*EX9
ϬF " #,TDL "hF ^6%mb
` ]% < x@6b4%Q(v""&rV3TqV7 Xr.mN2W'"nb
&nWi'rjQ46!U8o8A> .ZB|gُG*u UB wp PmI~3-΄ʦ
nGCd(-Wt~hiG$j͘d )!gD'nX=\Ux _bdS Vᵺ @ctrEZJ6AhPQv`^4_ * "\
IBET" űJA%
}L:. ;ВR U2M\wh
_AlFT !!v ehn+ -bL]_W%T2Hri[ I0.b(+꜠ͮuU匾p `˖9= X jX!%h~!s <tr~gkf4?φ
m8<ӃrtWמ-
ڐdI >ػ+Z_U倜1lhd[| (tk QV0Ns ڈ k~ ?lmYlVw:$ǰ-WɥPt\y|qhw!' FogHIqoV_-4 _ |7}Es)5e+&# e>'͘@
X@SzWf͏ոiaƕB8to|UBR V CR'*L1 8B4oRJJ H@ s afB2GP( %DMlm-5MT紙!e4Ѯ&{X&n6xΜ2`,+jg-(VC
V}IO}D7)ȶMˎ.Wk ű~kKM'ovzy3"Al@+e*F(5rfe8̯$Ul݀Rd }V>~+/}Mj,z,qemk'AX0?.oADq-019'o1a
s0aC{x!:K!5G9-
5gÆ%\JkN[b]
5$b^A$[3}u ?yK# +Ʈ*9j~. njTUof6Ov|DlO9.d{[ɚ!e PUYK>$# %kl dv)]M هF/mχTF ԇYɯ6N Vٵ[^Հ@L;&Eꯖ` Bײltt\O& EdQE&]6k%)vGMaK+ 5==PVȊW˷5WpRrK'3M7Ac
\> 4OayըeFJ_6c۾pUVMw#6i#2- 8MBRuaWN#RRh C{p!|c/ts⠳&.^gX]5)184hAAa)4+ ў`MV8S(H'oN>#E5t
ұ"J)d aU5bN % @t[PϤX;RzXnx5@_1o@` P >E@$UgZ9z)uG ']&PCEgW = {QB«ujR}B!TS᪅Jڛ=ۼ i (lϺk7& u +rJ"lD Aj #/N^}d.ѡֲ[t큦.n}7D;JZՂYI^6@^˸7-H ɑ'Z>j23
o+*5rkDWCAd'ľ.Ͳ
$>)l:QezgQ.dl>jYSoֿ3^E~ݯO8Շ]UϷ^zɖ1 ۏcԼΘ)`Bԉ&<%Ө'8ȏKϗJ8[a
JxH"ˉ.v͘X GnO. sZ ˎN` m2Wiի:EMz)X(q|)VL=5
QV%PB {X:_:+( 4|F]zLjGE
)N
D 7[N£ѣO/C>XvYq$BE1ֽ>ܹjkmG9[!*#9 't)Hql[Npn7)J dMB25$r}bq-ݻ-?
!bj' 3Ėa%^p_jx5jՉ%u9ٺ=Wj̑x̦Ew!<|P'J3ydvaavIMS{$wvl0|}OAD˻$a3^ JqW8 k8^NAf8}Qױ36\RB%".eub ]m BT%LmJHxbc~B0w nbz#+1R#Ate{vQ]I[Ȇ4HlI۶K:cMwGC}H?sG E 5c&1*bXB&Kkf55B M.5i4L)>GUoYf5E&E7]d8[ :f9Û
=Vn>䘯:jvֵ46{/\~އ۽|x.H[U5nߓ!-˩,X*${_=eR
>;mJ-aJ] a-8?49uN.+ P[ n;+3@۱[Ϊzƽ ۆI՚BㇾF2A9 l
wDz!NᯇPkw^`cU
Gb6ʟƋˡE[^E oMqoLJ*xti{)0qn͖ r(bޤR}rj]G-ox)Pɂ~Ip\C0n2.Zk!0:]O?%-N
h1 N#=8ml=@Țl+2-Uuq
0 4R+1#z
yۗGt+F ND5/$sw&(&@OJ"@k -w?y5ꎇN?W/05 zN _9[L{nLlo։0㺱 sҋ-u>ќtOT7QGR
7&0rz ͠6 n]ֶaWt"[8uv=rQҺW1qu{He*o
X wτ y$b {weq4\iEt|iQ0S&z)ֹ{SVL-`E4j)PԯpmC<8C&79ՄQ-mP 7sDXMBWr6X}l kHlq者 ~G:)< =Y>B9ENTQtLlR*Y :Q^Ҁt)hS"s ],'-8/j5F]tRNuJhV*XȼUuϢu` U~uc v&r|ak{29 #q9aB,ZL545jԭFC ;> ?JBp6Yj֍N~mȦK]pX_-TQ{S2 i b&aiWU`~M@ɢM4){8RjC˚+1U -O;' B' ac|<<@RO!r:C|gq1'k]_^kaNNGlwخ
f:uje]>pNseӊP(Hh<.uf1C366>Oy?jm9m~22I{n鑲4n0QzMV;uW]UFx
ђe3i)j,W$B-5%ʔ쾑oeU OG-fU `P#NN_. [x .r,{/6X}y80{xwf3_k1 6@ v..B/s>j_Ӏdxc+a_oBBf{ cI[[k+ usWm D?^
8TlUhԙ]?sm~U~? փjfGy!Y+
Wsߗ,~4E-m ktsCEMzpyG9x
1vn |\ |^:?k6dd1cOmH ]9zz'uYtqƼ;隖 |8b;lW?jgTh6|++)#.A5|U0r-yv˙腮å=?{ e" rQd0ǹ9EWZ+#2T%mG/5%*φ9VΟ l}4p,C|- Rs] %?]
}}ts8hp{$ۢV8zi4L
̅FV,xS>}Zhu|mnyVg,{^ yKO̊2 F ѫ§F_\Xjέ<8KMR@3^KI/&-)j iOSzsOsHWv3w IZ?J_qv ]6 ѿRA#/ ,FȽ4h{/z_ 8 ,g¯q| $
WF) g
Y2b$59Ci)Lr&Q=^:Hvhj&dv[ - H ] f5F< e5$ ,l? QQ\{ i(-.5C *< $)+
OyR,*@"!Fl6˒x `V~{-DYجQ7OO:-: `l'_F9P[`kЙb2UB[} aw~ 7A/~q t2ɝ4?zX'|Z$UtQ& KV|sT[ \.T#o92f { VaxIZR3JI{Laޘ͗xDM1{rPȭFzb{x5"tϻx3~*~9}ٱώ!ۥf|9/C2w { GXkonՄ`Gw\Wun~cW)#Mkԍ¢R#!|ـsܩr)z>\ |Z4Łe7q`JL ?*ۻl&m_=ÃVz:zȜM j `wxeٷ0B.\XEũwIJ-wY\yo,DsDE> kk0 H͉\9oYJjShy>_BMb[B0{n`}UbdEQ{bI.득S긘rPhp"W[;1 DHO>>. #3{rXZꍹ Śxs8.0n;|q ^6 ]@n8V͓(0쿶+_Y&::&]?٘9~ wxmQ25mcF5kiiKeoۉPXOe6F)Olh\X7m2M\C]`=>{
]FՐZIAw~.2G *?Qf>'t Qw
?,JrP? -
i+5;@Cs3HMUML) x\hh~l?0S&lAB?_{<$%+h]zCk}tva&OS R4n@z:ޢݳB2) +dw Q )5Uh< =rL<\ݵYv{nR3.O^jd Qlfz@ 8'iU cŀK=M: GN)09-V܍BgEY?_[I=>KY~wĐ)6* xQĴtx"W?~/Z 5\ @ Ȭx(`>9J;q ;stP/,79있=rdȡre"Nvl:jvaN,Ŧ/H0v Oe{
K Lmv<֯LX'`P3dwu%'
$-]]yKVOÞhqڬ&{UK(RmN1_<^+BJe-zZۃ3ٖtbkHȶR^X$dȾ>Q~"ɈI&ҁSܱ:J bܗn6^hY/|#z 22];!&Ch#ߨAQ d9.Rakn A6Si҅Z!Kii{]䛚X5#&|OxSǽڿt)¾9ŝF#Ө~?F<զg5:R/& .I#-鸑rAo &ad+i6"5+5zsaR0 G{g 'nȺY8K:k WQ&ܵE$k1pZL=|RLY[Q-B++՚- ac;e '{1Q4A| R\~>Q1W~~GP8}(3CS=8x֑ Rks W`k3(Fƨ}U'\=Uz֥FJK@:F X2pP~쿮V+~/ ??7+^ՏZP7rʐB[-$+
U~\ԍbk41d7lɨ{`Zu 8r.ŷ`ƽ
ֽ %UL@;z;L5FAn?'oebbG fs?~ LN D ]~ZMrlukh ;C1FHG/ םamA v}[_ EuiLaJlBY1|:y~w|8 J_4$9ߘkcv~%
Q6/6I-Ų' 9pe0ueEx_Rc3X]T8'uȅEz.e$+p a =oRu3vFy%u쪏{S
sqj/q?mc1&SWMD/(RL/9obB|w7,l@)~w$\;U1퀛{/HݵBdYqANq98 _8kځa+i(iU;IATFf C?d>}izcɄԘ
Q
[ oZ.\ ~$ƒF n/'ASpK?^!h.kܨE{1 aAʞw$9{mt 8'q~^
JJ:r7흇7Qm-+k| 삲@& 9}pS] iP,
hn2YgYYMs#p P:ɒ!듑y CA§p-. =F~E bYރGl(fltgcɐdٶ,$^3` b_t! -Eip}n'\"TB >~"lm La8Zi;?sߵYOOF.$%͟s `0lVF%Golzr ol$<{d B}|ДflCR ?Nn?=Ϸ9XM? 9gB$b;>|Ls5$˵(//xk88&>4TF08BJ?u|*mU
Y2eb=,0ނW\ophYlщQ[EwX~;OSOS|̯9~}:cH2!V.iaaRP03/4tn$14U vkR
*\(!j\doRw),l3v>ғʬ{rr{
%XyR/0ߋlC~&< 6^1Y5T"iq}oW82}]y +o^E
-W@z
ÕUbr%42g-}qcnLL'cvb_ !32Řב[ϫ{]a{}ކUcVyj#N*5 J u+} j_5a/p4"n}t{ 'гPNalM( [ {ԃx7
مu%@T@p~
IP1⻳>;/{c 2"zj*^pAyCU(-whcӷ !cIuں6Qs #OM0nTa[BM|D bl|!nq ţi=*b|K*4s'΄K١U)AhPA&W=vWx alzYL^.wAhRlTZV+ }v\La rF9k;&lj0UcD#g|ro^ȉx U.X廟f 6WsWGJ1awj}.gy702rgo 1%~g+lk1O~?߯ /~ EEc п{2tJQ.܆GA ZUB$! mQ,A&_S̺T6wlEӋr ^8>ap_kQBRQV,n=zjJe |q*
#include <string.h>
#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);
}
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) /* 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 */
}
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: 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(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(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 (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; j<nup; j++, pc++) {
if (GET_OPCODE(*pc) == OP_GETUPVAL)
ncl->l.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;
}
}
}
}