| 3 |
tristanc |
1 |
/*
|
|
|
2 |
** $Id: lopcodes.c,v 1.37 2005/11/08 19:45:36 roberto Exp $
|
|
|
3 |
** See Copyright Notice in lua.h
|
|
|
4 |
*/
|
|
|
5 |
|
|
|
6 |
|
|
|
7 |
#define lopcodes_c
|
|
|
8 |
#define LUA_CORE
|
|
|
9 |
|
|
|
10 |
|
|
|
11 |
#include "lopcodes.h"
|
|
|
12 |
|
|
|
13 |
|
|
|
14 |
/* ORDER OP */
|
|
|
15 |
|
|
|
16 |
const char *const luaP_opnames[NUM_OPCODES+1] = {
|
|
|
17 |
"MOVE",
|
|
|
18 |
"LOADK",
|
|
|
19 |
"LOADBOOL",
|
|
|
20 |
"LOADNIL",
|
|
|
21 |
"GETUPVAL",
|
|
|
22 |
"GETGLOBAL",
|
|
|
23 |
"GETTABLE",
|
|
|
24 |
"SETGLOBAL",
|
|
|
25 |
"SETUPVAL",
|
|
|
26 |
"SETTABLE",
|
|
|
27 |
"NEWTABLE",
|
|
|
28 |
"SELF",
|
|
|
29 |
"ADD",
|
|
|
30 |
"SUB",
|
|
|
31 |
"MUL",
|
|
|
32 |
"DIV",
|
|
|
33 |
"MOD",
|
|
|
34 |
"POW",
|
|
|
35 |
"UNM",
|
|
|
36 |
"NOT",
|
|
|
37 |
"LEN",
|
|
|
38 |
"CONCAT",
|
|
|
39 |
"JMP",
|
|
|
40 |
"EQ",
|
|
|
41 |
"LT",
|
|
|
42 |
"LE",
|
|
|
43 |
"TEST",
|
|
|
44 |
"TESTSET",
|
|
|
45 |
"CALL",
|
|
|
46 |
"TAILCALL",
|
|
|
47 |
"RETURN",
|
|
|
48 |
"FORLOOP",
|
|
|
49 |
"FORPREP",
|
|
|
50 |
"TFORLOOP",
|
|
|
51 |
"SETLIST",
|
|
|
52 |
"CLOSE",
|
|
|
53 |
"CLOSURE",
|
|
|
54 |
"VARARG",
|
|
|
55 |
NULL
|
|
|
56 |
};
|
|
|
57 |
|
|
|
58 |
|
|
|
59 |
#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m))
|
|
|
60 |
|
|
|
61 |
const lu_byte luaP_opmodes[NUM_OPCODES] = {
|
|
|
62 |
/* T A B C mode opcode */
|
|
|
63 |
opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_MOVE */
|
|
|
64 |
,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_LOADK */
|
|
|
65 |
,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_LOADBOOL */
|
|
|
66 |
,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LOADNIL */
|
|
|
67 |
,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_GETUPVAL */
|
|
|
68 |
,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_GETGLOBAL */
|
|
|
69 |
,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_GETTABLE */
|
|
|
70 |
,opmode(0, 0, OpArgK, OpArgN, iABx) /* OP_SETGLOBAL */
|
|
|
71 |
,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_SETUPVAL */
|
|
|
72 |
,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABLE */
|
|
|
73 |
,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_NEWTABLE */
|
|
|
74 |
,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_SELF */
|
|
|
75 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_ADD */
|
|
|
76 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_SUB */
|
|
|
77 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MUL */
|
|
|
78 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_DIV */
|
|
|
79 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MOD */
|
|
|
80 |
,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_POW */
|
|
|
81 |
,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_UNM */
|
|
|
82 |
,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_NOT */
|
|
|
83 |
,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LEN */
|
|
|
84 |
,opmode(0, 1, OpArgR, OpArgR, iABC) /* OP_CONCAT */
|
|
|
85 |
,opmode(0, 0, OpArgR, OpArgN, iAsBx) /* OP_JMP */
|
|
|
86 |
,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_EQ */
|
|
|
87 |
,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LT */
|
|
|
88 |
,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LE */
|
|
|
89 |
,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TEST */
|
|
|
90 |
,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TESTSET */
|
|
|
91 |
,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_CALL */
|
|
|
92 |
,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_TAILCALL */
|
|
|
93 |
,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_RETURN */
|
|
|
94 |
,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORLOOP */
|
|
|
95 |
,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORPREP */
|
|
|
96 |
,opmode(1, 0, OpArgN, OpArgU, iABC) /* OP_TFORLOOP */
|
|
|
97 |
,opmode(0, 0, OpArgU, OpArgU, iABC) /* OP_SETLIST */
|
|
|
98 |
,opmode(0, 0, OpArgN, OpArgN, iABC) /* OP_CLOSE */
|
|
|
99 |
,opmode(0, 1, OpArgU, OpArgN, iABx) /* OP_CLOSURE */
|
|
|
100 |
,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_VARARG */
|
|
|
101 |
};
|
|
|
102 |
|