0,0 → 1,106 |
/* |
** $Id: lopcodes.c,v 1.48 2011/04/19 16:22:13 roberto Exp $ |
** See Copyright Notice in lua.h |
*/ |
|
|
#define lopcodes_c |
#define LUA_CORE |
|
|
#include "lopcodes.h" |
|
|
/* ORDER OP */ |
|
LUAI_DDEF const char *const luaP_opnames[NUM_OPCODES+1] = { |
"MOVE", |
"LOADK", |
"LOADKX", |
"LOADBOOL", |
"LOADNIL", |
"GETUPVAL", |
"GETTABUP", |
"GETTABLE", |
"SETTABUP", |
"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", |
"TFORCALL", |
"TFORLOOP", |
"SETLIST", |
"CLOSURE", |
"VARARG", |
"EXTRAARG", |
NULL |
}; |
|
|
#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m)) |
|
LUAI_DDEF 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, OpArgN, OpArgN, iABx) /* OP_LOADKX */ |
,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_LOADBOOL */ |
,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_LOADNIL */ |
,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_GETUPVAL */ |
,opmode(0, 1, OpArgU, OpArgK, iABC) /* OP_GETTABUP */ |
,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_GETTABLE */ |
,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABUP */ |
,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, 0, OpArgN, 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(0, 0, OpArgN, OpArgU, iABC) /* OP_TFORCALL */ |
,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_TFORLOOP */ |
,opmode(0, 0, OpArgU, OpArgU, iABC) /* OP_SETLIST */ |
,opmode(0, 1, OpArgU, OpArgN, iABx) /* OP_CLOSURE */ |
,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_VARARG */ |
,opmode(0, 0, OpArgU, OpArgU, iAx) /* OP_EXTRAARG */ |
}; |
|