function luaK.setlist(B,L,a,h,u)local E=math.floor((h-1)/luaP.LFIELDS_PER_FLUSH)+1 local O=u==luaY.LUA_MULTRET and 0 or u assert(u~=0)if E<=luaP.MAXARG_C then B:codeABC(L,"\079\080\095\083\069\084\076\073\083\084",a,O,E)else B:codeABC(L,"\079\080\095\083\069\084\076\073\083\084",a,O,0)B:code(L,luaP:CREATE_Inst(E),L.ls.lastline)end L.freereg=a+1 end return function(L)luaY=L return luaK end
------------------------------------------------------------------------
--
-- * used in (lparser) luaY:closelistfield(), luaY:lastlistfield()
------------------------------------------------------------------------
function luaK:setlist(fs, base, nelems, tostore)
	local c = math.floor((nelems - 1) / luaP.LFIELDS_PER_FLUSH) + 1
	local b = (tostore == luaY.LUA_MULTRET) and 0 or tostore
	assert(tostore ~= 0)
	if c <= luaP.MAXARG_C then
		self:codeABC(fs, "OP_SETLIST", base, b, c)
	else
		self:codeABC(fs, "OP_SETLIST", base, b, 0)
		self:code(fs, luaP:CREATE_Inst(c), fs.ls.lastline)
	end
	fs.freereg = base + 1 -- free registers with list values
end

return function(a)
	luaY = a
	return luaK
end
