Function LoadConstants

Source/Misc/lua/src/lua.c:10003–10038

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; i<n; i++) setnilvalue(&f->k[i]);
for (i=0; i<n; i++)
{
TValue* o=&f->k[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; i<n; i++) f->p[i]=NULL;
for (i=0; i<n; i++) f->p[i]=LoadFunction(S,f->source);
}

static void LoadDebug(LoadState* S, Proto* f)
{