static void OptConstants(Proto* tf)
{
Instruction* p;
int n=tf->nknum+tf->nkstr;
Hash* map=luaH_new(L,n);
int m=MapConstants(tf,map);
#ifdef DEBUG
printf("%p n=%d m=%d %s\n",tf,n,m,(m==n)?"nothing to optimize":"yes!");
#endif
if (m==n) return;
for (p=tf->code;; p++)
{
Instruction i=*p;
int op=GET_OPCODE(i);
switch (op)
{
TObject o;
int j,k;
case OP_PUSHNUM: case OP_PUSHNEGNUM:
j=GETARG_U(i);
ttype(&o)=LUA_TNUMBER; nvalue(&o)=tf->knum[j];
k=MapConstant(map,-1,&o);
if (k!=j) *p=CREATE_U(op,k);
break;
case OP_PUSHSTRING: case OP_GETGLOBAL: case OP_GETDOTTED:
case OP_PUSHSELF: case OP_SETGLOBAL:
j=GETARG_U(i);
ttype(&o)=LUA_TSTRING; tsvalue(&o)=tf->kstr[j];
k=MapConstant(map,-1,&o);
if (k!=j) *p=CREATE_U(op,k);
break;
case OP_END:
PackConstants(tf,map);
luaH_free(L,map);
return;
default:
break;
}
}
}
static void OptConstants(Proto* tf)
{
Instruction* p;
int n=tf->nknum+tf->nkstr;
Hash* map=luaH_new(compile_lua_state,n);
int m=MapConstants(tf,map);
if (m==n) return;
for (p=tf->code;; p++)
{
Instruction i=*p;
int op=GET_OPCODE(i);
switch (op)
{
TObject o;
int j,k;
case OP_PUSHNUM: case OP_PUSHNEGNUM:
j=GETARG_U(i);
ttype(&o)=LUA_TNUMBER; nvalue(&o)=tf->knum[j];
k=MapConstant(map,-1,&o);
if (k!=j) *p=CREATE_U(op,k);
break;
case OP_PUSHSTRING: case OP_GETGLOBAL: case OP_GETDOTTED:
case OP_PUSHSELF: case OP_SETGLOBAL:
j=GETARG_U(i);
ttype(&o)=LUA_TSTRING; tsvalue(&o)=tf->kstr[j];
k=MapConstant(map,-1,&o);
if (k!=j) *p=CREATE_U(op,k);
break;
case OP_END:
PackConstants(tf,map);
luaH_free(compile_lua_state,map);
return;
default:
break;
}
}
}
