diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-04-07 10:12:50 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-04-07 10:12:50 -0300 |
commit | 14251c5a5640f73f8f98d2445900a3c3a8d472fb (patch) | |
tree | 5bd0b7ff85dc9eea319764e13944d303ce2f9b7d | |
parent | 42130ed71264a18cdb955ed4b3a8314f9a6c85cc (diff) | |
download | lua-14251c5a5640f73f8f98d2445900a3c3a8d472fb.tar.gz lua-14251c5a5640f73f8f98d2445900a3c3a8d472fb.tar.bz2 lua-14251c5a5640f73f8f98d2445900a3c3a8d472fb.zip |
name changes + new operation - old operation
-rw-r--r-- | lopcodes.h | 18 | ||||
-rw-r--r-- | ltests.c | 14 |
2 files changed, 16 insertions, 16 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lopcodes.h,v 1.53 2000/03/27 14:31:12 roberto Exp roberto $ | 2 | ** $Id: lopcodes.h,v 1.54 2000/04/04 20:48:44 roberto Exp roberto $ |
3 | ** Opcodes for Lua virtual machine | 3 | ** Opcodes for Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -105,35 +105,35 @@ OP_PUSHNEGNUM,/* N - -KNUM[u] */ | |||
105 | 105 | ||
106 | OP_PUSHUPVALUE,/* U - Closure[u] */ | 106 | OP_PUSHUPVALUE,/* U - Closure[u] */ |
107 | 107 | ||
108 | OP_PUSHLOCAL,/* L - LOC[u] */ | 108 | OP_GETLOCAL,/* L - LOC[u] */ |
109 | OP_GETGLOBAL,/* K - VAR[KSTR[k]] */ | 109 | OP_GETGLOBAL,/* K - VAR[KSTR[k]] */ |
110 | 110 | ||
111 | OP_GETTABLE,/* - i t t[i] */ | 111 | OP_GETTABLE,/* - i t t[i] */ |
112 | OP_GETDOTTED,/* K t t[KSTR[k]] */ | 112 | OP_GETDOTTED,/* K t t[KSTR[k]] */ |
113 | OP_GETINDEXED,/* L t t[LOC[U]] */ | ||
113 | OP_PUSHSELF,/* K t t t[KSTR[k]] */ | 114 | OP_PUSHSELF,/* K t t t[KSTR[k]] */ |
114 | 115 | ||
115 | OP_CREATETABLE,/* U - newarray(size = u) */ | 116 | OP_CREATETABLE,/* U - newarray(size = u) */ |
116 | 117 | ||
117 | OP_SETLOCAL,/* L x - LOC[u]=x */ | 118 | OP_SETLOCAL,/* L B v_b-v_1 - LOC[L]=v_b */ |
118 | OP_SETGLOBAL,/* K x - VAR[KSTR[k]]=x */ | 119 | OP_SETGLOBAL,/* K x - VAR[KSTR[k]]=x */ |
119 | OP_SETTABLEPOP,/* - v i t - t[i]=v */ | 120 | OP_SETTABLE,/* A B v a_a-a_1 i t a_x-a_1 i t t[i]=v */ |
120 | OP_SETTABLE,/* U v a_u-a_1 i t a_u-a_1 i t t[i]=v */ | ||
121 | 121 | ||
122 | OP_SETLIST,/* A B v_b-v_0 t t t[i+a*FPF]=v_i */ | 122 | OP_SETLIST,/* A B v_b-v_0 t t t[i+a*FPF]=v_i */ |
123 | OP_SETMAP,/* U v_u k_u - v_0 k_0 t t t[k_i]=v_i */ | 123 | OP_SETMAP,/* U v_u k_u - v_0 k_0 t t t[k_i]=v_i */ |
124 | 124 | ||
125 | OP_INCLOCAL,/* sA B - - LOC[B]+=sA */ | 125 | OP_INCLOCAL,/* sA L - - LOC[L]+=sA */ |
126 | OP_ADD,/* - y x x+y */ | 126 | OP_ADD,/* - y x x+y */ |
127 | OP_ADDI,/* S x x+s */ | 127 | OP_ADDI,/* S x x+s */ |
128 | OP_SUB,/* - y x x-y */ | 128 | OP_SUB,/* - y x x-y */ |
129 | OP_MULT,/* - y x x*y */ | 129 | OP_MULT,/* - y x x*y */ |
130 | OP_DIV,/* - y x x/y */ | 130 | OP_DIV,/* - y x x/y */ |
131 | OP_POW,/* - y x x^y */ | 131 | OP_POW,/* - y x x^y */ |
132 | OP_CONC,/* U v_u-v_1 v1..-..v_u */ | 132 | OP_CONCAT,/* U v_u-v_1 v1..-..v_u */ |
133 | OP_MINUS,/* - x -x */ | 133 | OP_MINUS,/* - x -x */ |
134 | OP_NOT,/* - x (x==nil)? 1 : nil */ | 134 | OP_NOT,/* - x (x==nil)? 1 : nil */ |
135 | 135 | ||
136 | OP_JMPNEQ,/* J y x - (x~=y)? PC+=s */ | 136 | OP_JMPNE,/* J y x - (x~=y)? PC+=s */ |
137 | OP_JMPEQ,/* J y x - (x==y)? PC+=s */ | 137 | OP_JMPEQ,/* J y x - (x==y)? PC+=s */ |
138 | OP_JMPLT,/* J y x - (x<y)? PC+=s */ | 138 | OP_JMPLT,/* J y x - (x<y)? PC+=s */ |
139 | OP_JMPLE,/* J y x - (x<y)? PC+=s */ | 139 | OP_JMPLE,/* J y x - (x<y)? PC+=s */ |
@@ -156,7 +156,7 @@ OP_SETLINE/* U - - LINE=u */ | |||
156 | 156 | ||
157 | 157 | ||
158 | 158 | ||
159 | #define ISJUMP(o) (OP_JMPNEQ <= (o) && (o) <= OP_JMP) | 159 | #define ISJUMP(o) (OP_JMPNE <= (o) && (o) <= OP_JMP) |
160 | 160 | ||
161 | 161 | ||
162 | #endif | 162 | #endif |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 1.10 2000/03/16 20:35:07 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.11 2000/04/06 17:35:23 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -70,16 +70,16 @@ static int printop (lua_State *L, Instruction i) { | |||
70 | case OP_PUSHNUM: U("PUSHNUM"); break; | 70 | case OP_PUSHNUM: U("PUSHNUM"); break; |
71 | case OP_PUSHNEGNUM: U("PUSHNEGNUM"); break; | 71 | case OP_PUSHNEGNUM: U("PUSHNEGNUM"); break; |
72 | case OP_PUSHUPVALUE: U("PUSHUPVALUE"); break; | 72 | case OP_PUSHUPVALUE: U("PUSHUPVALUE"); break; |
73 | case OP_PUSHLOCAL: U("PUSHLOCAL"); break; | 73 | case OP_GETLOCAL: U("GETLOCAL"); break; |
74 | case OP_GETGLOBAL: U("GETGLOBAL"); break; | 74 | case OP_GETGLOBAL: U("GETGLOBAL"); break; |
75 | case OP_GETTABLE: O("GETTABLE"); break; | 75 | case OP_GETTABLE: O("GETTABLE"); break; |
76 | case OP_GETDOTTED: U("GETDOTTED"); break; | 76 | case OP_GETDOTTED: U("GETDOTTED"); break; |
77 | case OP_GETINDEXED: U("GETINDEXED"); break; | ||
77 | case OP_PUSHSELF: U("PUSHSELF"); break; | 78 | case OP_PUSHSELF: U("PUSHSELF"); break; |
78 | case OP_CREATETABLE: U("CREATETABLE"); break; | 79 | case OP_CREATETABLE: U("CREATETABLE"); break; |
79 | case OP_SETLOCAL: U("SETLOCAL"); break; | 80 | case OP_SETLOCAL: AB("SETLOCAL"); break; |
80 | case OP_SETGLOBAL: U("SETGLOBAL"); break; | 81 | case OP_SETGLOBAL: U("SETGLOBAL"); break; |
81 | case OP_SETTABLEPOP: O("SETTABLEPOP"); break; | 82 | case OP_SETTABLE: AB("SETTABLE"); break; |
82 | case OP_SETTABLE: U("SETTABLE"); break; | ||
83 | case OP_SETLIST: AB("SETLIST"); break; | 83 | case OP_SETLIST: AB("SETLIST"); break; |
84 | case OP_SETMAP: U("SETMAP"); break; | 84 | case OP_SETMAP: U("SETMAP"); break; |
85 | case OP_ADD: O("ADD"); break; | 85 | case OP_ADD: O("ADD"); break; |
@@ -89,10 +89,10 @@ static int printop (lua_State *L, Instruction i) { | |||
89 | case OP_MULT: O("MULT"); break; | 89 | case OP_MULT: O("MULT"); break; |
90 | case OP_DIV: O("DIV"); break; | 90 | case OP_DIV: O("DIV"); break; |
91 | case OP_POW: O("POW"); break; | 91 | case OP_POW: O("POW"); break; |
92 | case OP_CONC: U("CONC"); break; | 92 | case OP_CONCAT: U("CONCAT"); break; |
93 | case OP_MINUS: O("MINUS"); break; | 93 | case OP_MINUS: O("MINUS"); break; |
94 | case OP_NOT: O("NOT"); break; | 94 | case OP_NOT: O("NOT"); break; |
95 | case OP_JMPNEQ: S("JMPNEQ"); break; | 95 | case OP_JMPNE: S("JMPNE"); break; |
96 | case OP_JMPEQ: S("JMPEQ"); break; | 96 | case OP_JMPEQ: S("JMPEQ"); break; |
97 | case OP_JMPLT: S("JMPLT"); break; | 97 | case OP_JMPLT: S("JMPLT"); break; |
98 | case OP_JMPLE: S("JMPLE"); break; | 98 | case OP_JMPLE: S("JMPLE"); break; |