diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2017-10-04 18:56:32 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2017-10-04 18:56:32 -0300 |
commit | a1ef58b3a5986293ed0b7acef50073d94c7f932f (patch) | |
tree | a2bb5ad195001c03caeec9b536a1f8d97acba693 /lvm.c | |
parent | 283e7455ffe32235eaf790ebd3c40c7970b7a833 (diff) | |
download | lua-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.c | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -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)); |