diff options
Diffstat (limited to 'opcode.h')
-rw-r--r-- | opcode.h | 167 |
1 files changed, 0 insertions, 167 deletions
diff --git a/opcode.h b/opcode.h deleted file mode 100644 index 406ff971..00000000 --- a/opcode.h +++ /dev/null | |||
@@ -1,167 +0,0 @@ | |||
1 | /* | ||
2 | ** TeCGraf - PUC-Rio | ||
3 | ** $Id: opcode.h,v 3.37 1997/07/30 22:00:50 roberto Exp roberto $ | ||
4 | */ | ||
5 | |||
6 | #ifndef opcode_h | ||
7 | #define opcode_h | ||
8 | |||
9 | #include "lua.h" | ||
10 | #include "types.h" | ||
11 | #include "tree.h" | ||
12 | #include "func.h" | ||
13 | |||
14 | |||
15 | #define FIELDS_PER_FLUSH 40 | ||
16 | |||
17 | /* | ||
18 | * WARNING: if you change the order of this enumeration, | ||
19 | * grep "ORDER LUA_T" | ||
20 | */ | ||
21 | typedef enum | ||
22 | { | ||
23 | LUA_T_NIL = -9, | ||
24 | LUA_T_NUMBER = -8, | ||
25 | LUA_T_STRING = -7, | ||
26 | LUA_T_ARRAY = -6, /* array==table */ | ||
27 | LUA_T_FUNCTION = -5, | ||
28 | LUA_T_CFUNCTION= -4, | ||
29 | LUA_T_MARK = -3, | ||
30 | LUA_T_CMARK = -2, | ||
31 | LUA_T_LINE = -1, | ||
32 | LUA_T_USERDATA = 0 | ||
33 | } lua_Type; | ||
34 | |||
35 | #define NUM_TYPES 10 | ||
36 | |||
37 | |||
38 | extern char *luaI_typenames[]; | ||
39 | |||
40 | typedef enum { | ||
41 | /* name parm before after side effect | ||
42 | -----------------------------------------------------------------------------*/ | ||
43 | |||
44 | PUSHNIL,/* - nil */ | ||
45 | PUSH0,/* - 0.0 */ | ||
46 | PUSH1,/* - 1.0 */ | ||
47 | PUSH2,/* - 2.0 */ | ||
48 | PUSHBYTE,/* b - (float)b */ | ||
49 | PUSHWORD,/* w - (float)w */ | ||
50 | PUSHLOCAL0,/* - LOC[0] */ | ||
51 | PUSHLOCAL1,/* - LOC[1] */ | ||
52 | PUSHLOCAL2,/* - LOC[2] */ | ||
53 | PUSHLOCAL3,/* - LOC[3] */ | ||
54 | PUSHLOCAL4,/* - LOC[4] */ | ||
55 | PUSHLOCAL5,/* - LOC[5] */ | ||
56 | PUSHLOCAL6,/* - LOC[6] */ | ||
57 | PUSHLOCAL7,/* - LOC[7] */ | ||
58 | PUSHLOCAL8,/* - LOC[8] */ | ||
59 | PUSHLOCAL9,/* - LOC[9] */ | ||
60 | PUSHLOCAL,/* b - LOC[b] */ | ||
61 | PUSHGLOBAL,/* w - VAR[w] */ | ||
62 | PUSHINDEXED,/* i t t[i] */ | ||
63 | PUSHSELF,/* w t t t[CNST[w]] */ | ||
64 | STORELOCAL0,/* x - LOC[0]=x */ | ||
65 | STORELOCAL1,/* x - LOC[1]=x */ | ||
66 | STORELOCAL2,/* x - LOC[2]=x */ | ||
67 | STORELOCAL3,/* x - LOC[3]=x */ | ||
68 | STORELOCAL4,/* x - LOC[4]=x */ | ||
69 | STORELOCAL5,/* x - LOC[5]=x */ | ||
70 | STORELOCAL6,/* x - LOC[6]=x */ | ||
71 | STORELOCAL7,/* x - LOC[7]=x */ | ||
72 | STORELOCAL8,/* x - LOC[8]=x */ | ||
73 | STORELOCAL9,/* x - LOC[9]=x */ | ||
74 | STORELOCAL,/* b x - LOC[b]=x */ | ||
75 | STOREGLOBAL,/* w x - VAR[w]=x */ | ||
76 | STOREINDEXED0,/* v i t - t[i]=v */ | ||
77 | STOREINDEXED,/* b v a_b...a_1 i t a_b...a_1 i t t[i]=v */ | ||
78 | STORELIST0,/* b v_b...v_1 t - t[i]=v_i */ | ||
79 | STORELIST,/* b c v_b...v_1 t - t[i+c*FPF]=v_i */ | ||
80 | STORERECORD,/* b | ||
81 | w_b...w_1 v_b...v_1 t - t[CNST[w_i]]=v_i */ | ||
82 | ADJUST0,/* - - TOP=BASE */ | ||
83 | ADJUST,/* b - - TOP=BASE+b */ | ||
84 | CREATEARRAY,/* w - newarray(size = w) */ | ||
85 | EQOP,/* y x (x==y)? 1 : nil */ | ||
86 | LTOP,/* y x (x<y)? 1 : nil */ | ||
87 | LEOP,/* y x (x<y)? 1 : nil */ | ||
88 | GTOP,/* y x (x>y)? 1 : nil */ | ||
89 | GEOP,/* y x (x>=y)? 1 : nil */ | ||
90 | ADDOP,/* y x x+y */ | ||
91 | SUBOP,/* y x x-y */ | ||
92 | MULTOP,/* y x x*y */ | ||
93 | DIVOP,/* y x x/y */ | ||
94 | POWOP,/* y x x^y */ | ||
95 | CONCOP,/* y x x..y */ | ||
96 | MINUSOP,/* x -x */ | ||
97 | NOTOP,/* x (x==nil)? 1 : nil */ | ||
98 | ONTJMP,/* w x (x!=nil)? x : - (x!=nil)? PC+=w */ | ||
99 | ONFJMP,/* w x (x==nil)? x : - (x==nil)? PC+=w */ | ||
100 | JMP,/* w - - PC+=w */ | ||
101 | UPJMP,/* w - - PC-=w */ | ||
102 | IFFJMP,/* w x - (x==nil)? PC+=w */ | ||
103 | IFFUPJMP,/* w x - (x==nil)? PC-=w */ | ||
104 | CALLFUNC,/* b c v_b...v_1 f r_c...r_1 f(v1,...,v_b) */ | ||
105 | RETCODE0, | ||
106 | RETCODE,/* b - - */ | ||
107 | SETLINE,/* w - - LINE=w */ | ||
108 | VARARGS,/* b v_b...v_1 {v_1...v_b;n=b} */ | ||
109 | STOREMAP,/* b v_b k_b ...v_1 k_1 t - t[k_i]=v_i */ | ||
110 | PUSHCONSTANTB,/*b - CNST[b] */ | ||
111 | PUSHCONSTANT,/* w - CNST[w] */ | ||
112 | ENDCODE = 127 | ||
113 | } OpCode; | ||
114 | |||
115 | |||
116 | #define MULT_RET 255 | ||
117 | |||
118 | |||
119 | typedef union | ||
120 | { | ||
121 | lua_CFunction f; | ||
122 | real n; | ||
123 | TaggedString *ts; | ||
124 | TFunc *tf; | ||
125 | struct Hash *a; | ||
126 | int i; | ||
127 | } Value; | ||
128 | |||
129 | typedef struct TObject | ||
130 | { | ||
131 | lua_Type ttype; | ||
132 | Value value; | ||
133 | } TObject; | ||
134 | |||
135 | |||
136 | /* Macros to access structure members */ | ||
137 | #define ttype(o) ((o)->ttype) | ||
138 | #define nvalue(o) ((o)->value.n) | ||
139 | #define svalue(o) ((o)->value.ts->str) | ||
140 | #define tsvalue(o) ((o)->value.ts) | ||
141 | #define avalue(o) ((o)->value.a) | ||
142 | #define fvalue(o) ((o)->value.f) | ||
143 | |||
144 | /* Macros to access symbol table */ | ||
145 | #define s_object(i) (lua_table[i].object) | ||
146 | #define s_ttype(i) (ttype(&s_object(i))) | ||
147 | #define s_nvalue(i) (nvalue(&s_object(i))) | ||
148 | #define s_svalue(i) (svalue(&s_object(i))) | ||
149 | #define s_tsvalue(i) (tsvalue(&s_object(i))) | ||
150 | #define s_avalue(i) (avalue(&s_object(i))) | ||
151 | #define s_fvalue(i) (fvalue(&s_object(i))) | ||
152 | #define s_uvalue(i) (uvalue(&s_object(i))) | ||
153 | |||
154 | |||
155 | /* Exported functions */ | ||
156 | void lua_parse (TFunc *tf); /* from "lua.stx" module */ | ||
157 | void luaI_codedebugline (int line); /* from "lua.stx" module */ | ||
158 | void lua_travstack (int (*fn)(TObject *)); | ||
159 | TObject *luaI_Address (lua_Object o); | ||
160 | void luaI_pushobject (TObject *o); | ||
161 | void luaI_gcIM (TObject *o); | ||
162 | int luaI_dorun (TFunc *tf); | ||
163 | int lua_domain (void); | ||
164 | |||
165 | extern TObject luaI_errorim; | ||
166 | |||
167 | #endif | ||