aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2017-10-04 18:56:32 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2017-10-04 18:56:32 -0300
commita1ef58b3a5986293ed0b7acef50073d94c7f932f (patch)
treea2bb5ad195001c03caeec9b536a1f8d97acba693 /lvm.c
parent283e7455ffe32235eaf790ebd3c40c7970b7a833 (diff)
downloadlua-a1ef58b3a5986293ed0b7acef50073d94c7f932f.tar.gz
lua-a1ef58b3a5986293ed0b7acef50073d94c7f932f.tar.bz2
lua-a1ef58b3a5986293ed0b7acef50073d94c7f932f.zip
eplicit 1-bit opcode operand 'k'
Diffstat (limited to 'lvm.c')
-rw-r--r--lvm.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/lvm.c b/lvm.c
index 9c2b1345..b3e32047 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.c,v 2.297 2017/10/01 19:13:43 roberto Exp roberto $ 2** $Id: lvm.c,v 2.298 2017/10/04 15:49:24 roberto Exp roberto $
3** Lua virtual machine 3** Lua virtual machine
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -742,7 +742,7 @@ void luaV_finishOp (lua_State *L) {
742#define RC(i) (base+GETARG_C(i)) 742#define RC(i) (base+GETARG_C(i))
743#define vRC(i) s2v(RC(i)) 743#define vRC(i) s2v(RC(i))
744#define KC(i) (k+GETARG_C(i)) 744#define KC(i) (k+GETARG_C(i))
745#define RKC(i) ((GETARG_Ck(i)) ? k + GETARG_Cr(i) : s2v(base + GETARG_Cr(i))) 745#define RKC(i) ((GETARG_k(i)) ? k + GETARG_C(i) : s2v(base + GETARG_C(i)))
746 746
747 747
748 748
@@ -992,7 +992,7 @@ void luaV_execute (lua_State *L) {
992 } 992 }
993 vmcase(OP_ADDI) { 993 vmcase(OP_ADDI) {
994 TValue *rb = vRB(i); 994 TValue *rb = vRB(i);
995 int ic = GETARG_Cr(i); 995 int ic = GETARG_sC(i);
996 lua_Number nb; 996 lua_Number nb;
997 if (ttisinteger(rb)) { 997 if (ttisinteger(rb)) {
998 setivalue(s2v(ra), intop(+, ivalue(rb), ic)); 998 setivalue(s2v(ra), intop(+, ivalue(rb), ic));
@@ -1001,12 +1001,12 @@ void luaV_execute (lua_State *L) {
1001 setfltvalue(s2v(ra), luai_numadd(L, nb, cast_num(ic))); 1001 setfltvalue(s2v(ra), luai_numadd(L, nb, cast_num(ic)));
1002 } 1002 }
1003 else 1003 else
1004 Protect(luaT_trybiniTM(L, rb, ic, GETARG_Ck(i), ra, TM_ADD)); 1004 Protect(luaT_trybiniTM(L, rb, ic, GETARG_k(i), ra, TM_ADD));
1005 vmbreak; 1005 vmbreak;
1006 } 1006 }
1007 vmcase(OP_SUBI) { 1007 vmcase(OP_SUBI) {
1008 TValue *rb = vRB(i); 1008 TValue *rb = vRB(i);
1009 int ic = GETARG_Cr(i); 1009 int ic = GETARG_sC(i);
1010 lua_Number nb; 1010 lua_Number nb;
1011 if (ttisinteger(rb)) { 1011 if (ttisinteger(rb)) {
1012 setivalue(s2v(ra), intop(-, ivalue(rb), ic)); 1012 setivalue(s2v(ra), intop(-, ivalue(rb), ic));
@@ -1020,7 +1020,7 @@ void luaV_execute (lua_State *L) {
1020 } 1020 }
1021 vmcase(OP_MULI) { 1021 vmcase(OP_MULI) {
1022 TValue *rb = vRB(i); 1022 TValue *rb = vRB(i);
1023 int ic = GETARG_Cr(i); 1023 int ic = GETARG_sC(i);
1024 lua_Number nb; 1024 lua_Number nb;
1025 if (ttisinteger(rb)) { 1025 if (ttisinteger(rb)) {
1026 setivalue(s2v(ra), intop(*, ivalue(rb), ic)); 1026 setivalue(s2v(ra), intop(*, ivalue(rb), ic));
@@ -1029,12 +1029,12 @@ void luaV_execute (lua_State *L) {
1029 setfltvalue(s2v(ra), luai_nummul(L, nb, cast_num(ic))); 1029 setfltvalue(s2v(ra), luai_nummul(L, nb, cast_num(ic)));
1030 } 1030 }
1031 else 1031 else
1032 Protect(luaT_trybiniTM(L, rb, ic, GETARG_Ck(i), ra, TM_MUL)); 1032 Protect(luaT_trybiniTM(L, rb, ic, GETARG_k(i), ra, TM_MUL));
1033 vmbreak; 1033 vmbreak;
1034 } 1034 }
1035 vmcase(OP_MODI) { 1035 vmcase(OP_MODI) {
1036 TValue *rb = vRB(i); 1036 TValue *rb = vRB(i);
1037 int ic = GETARG_Cr(i); 1037 int ic = GETARG_sC(i);
1038 lua_Number nb; 1038 lua_Number nb;
1039 if (ttisinteger(rb)) { 1039 if (ttisinteger(rb)) {
1040 setivalue(s2v(ra), luaV_mod(L, ivalue(rb), ic)); 1040 setivalue(s2v(ra), luaV_mod(L, ivalue(rb), ic));
@@ -1051,7 +1051,7 @@ void luaV_execute (lua_State *L) {
1051 } 1051 }
1052 vmcase(OP_POWI) { 1052 vmcase(OP_POWI) {
1053 TValue *rb = vRB(i); 1053 TValue *rb = vRB(i);
1054 int ic = GETARG_Cr(i); 1054 int ic = GETARG_sC(i);
1055 lua_Number nb; 1055 lua_Number nb;
1056 if (tonumberns(rb, nb)) { 1056 if (tonumberns(rb, nb)) {
1057 lua_Number nc = cast_num(ic); 1057 lua_Number nc = cast_num(ic);
@@ -1063,7 +1063,7 @@ void luaV_execute (lua_State *L) {
1063 } 1063 }
1064 vmcase(OP_DIVI) { 1064 vmcase(OP_DIVI) {
1065 TValue *rb = vRB(i); 1065 TValue *rb = vRB(i);
1066 int ic = GETARG_Cr(i); 1066 int ic = GETARG_sC(i);
1067 lua_Number nb; 1067 lua_Number nb;
1068 if (tonumberns(rb, nb)) { 1068 if (tonumberns(rb, nb)) {
1069 lua_Number nc = cast_num(ic); 1069 lua_Number nc = cast_num(ic);
@@ -1075,7 +1075,7 @@ void luaV_execute (lua_State *L) {
1075 } 1075 }
1076 vmcase(OP_IDIVI) { 1076 vmcase(OP_IDIVI) {
1077 TValue *rb = vRB(i); 1077 TValue *rb = vRB(i);
1078 int ic = GETARG_Cr(i); 1078 int ic = GETARG_sC(i);
1079 lua_Number nb; 1079 lua_Number nb;
1080 if (ttisinteger(rb)) { 1080 if (ttisinteger(rb)) {
1081 setivalue(s2v(ra), luaV_div(L, ivalue(rb), ic)); 1081 setivalue(s2v(ra), luaV_div(L, ivalue(rb), ic));