forked from GitHub/lad
Andre Murbach Maidl
231 lines
6.9 KiB
Lua
231 lines
6.9 KiB
Lua
local OPCODE = { "MOVE", "LOADK", "LOADKX", "LOADBOOL", "LOADNIL",
|
|
"GETUPVAL", "GETTABUP", "GETTABLE", "SETTABUP",
|
|
"SETUPVAL", "SETTABLE", "NEWTABLE", "SELF",
|
|
"ADD", "SUB", "MUL", "DIV", "MOD", "POW",
|
|
"UNM", "NOT", "LEN", "CONCAT", "JMP",
|
|
"EQ", "LT", "LE", "TEST", "TESTSET",
|
|
"CALL", "TAILCALL", "RETURN", "FORLOOP",
|
|
"FORPREP", "TFORCALL", "TFORLOOP", "SETLIST",
|
|
"CLOSURE", "VARARG", "EXTRAARG" }
|
|
|
|
local LUA_ENV = "_ENV"
|
|
local LUA_SOURCE = "@Lua Assembler/Disassembler"
|
|
|
|
local LUA_SIGNATURE = "\27Lua"
|
|
local LUAC_TAIL = "\x19\x93\r\n\x1a\n"
|
|
local LUAC_HEADERSIZE = string.len(LUA_SIGNATURE) + 2 + 6 + string.len(LUAC_TAIL)
|
|
local LUA_VERSION = 82
|
|
local LUA_FORMAT = 0
|
|
|
|
local ENDIANNESS = 1
|
|
local INT = 4
|
|
local SIZE_T = 8
|
|
local INSTRUCTION = 4
|
|
local LUA_NUMBER = 8
|
|
local INTEGRAL = 0
|
|
|
|
local LUA_TNIL = 0
|
|
local LUA_TBOOLEAN = 1
|
|
local LUA_TNUMBER = 3
|
|
local LUA_TSTRING = 4
|
|
|
|
local iABC = 0
|
|
local iABx = 1
|
|
local iAsBx = 2
|
|
local iAx = 3
|
|
|
|
local SIZE_C = 9
|
|
local SIZE_B = 9
|
|
local SIZE_Bx = (SIZE_C + SIZE_B)
|
|
local SIZE_A = 8
|
|
local SIZE_Ax = (SIZE_C + SIZE_B + SIZE_A)
|
|
|
|
local SIZE_OP = 6
|
|
|
|
local POS_OP = 0
|
|
local POS_A = (POS_OP + SIZE_OP)
|
|
local POS_C = (POS_A + SIZE_A)
|
|
local POS_B = (POS_C + SIZE_C)
|
|
local POS_Bx = POS_C
|
|
local POS_Ax = POS_A
|
|
|
|
local MASK_OP = math.ldexp(1, SIZE_OP)
|
|
local MASK_A = math.ldexp(1, SIZE_A)
|
|
local MASK_B = math.ldexp(1, SIZE_B)
|
|
local MASK_C = math.ldexp(1, SIZE_C)
|
|
local MASK_Bx = math.ldexp(1, SIZE_Bx)
|
|
local MASK_Ax = math.ldexp(1, SIZE_Ax)
|
|
|
|
local ABC = { SIZE_OP, SIZE_A, SIZE_C, SIZE_B }
|
|
|
|
local INT_MAX = (2 ^ ((SIZE_T * INT) - 1)) - 1
|
|
local LUAI_BITSINT
|
|
if INT_MAX-20 < 32760 then
|
|
LUAI_BITSINT = 16
|
|
elseif INT_MAX > 2147483640 then
|
|
LUAI_BITSINT = 32
|
|
else
|
|
error ("you must define LUAI_BITSINT with number of bits in an integer")
|
|
end
|
|
|
|
local MAX_INT = INT_MAX - 2
|
|
|
|
local MAXARG_Bx, MAXARG_sBx, MAXARG_Ax
|
|
|
|
if SIZE_Bx < LUAI_BITSINT-1 then
|
|
MAXARG_Bx = bit32.lshift(1,SIZE_Bx)-1
|
|
MAXARG_sBx = bit32.rshift(MAXARG_Bx,1)
|
|
else
|
|
MAXARG_Bx = MAX_INT
|
|
MAXARG_sBx = MAX_INT
|
|
end
|
|
|
|
if SIZE_Ax < LUAI_BITSINT-1 then
|
|
MAXARG_Ax = bit32.lshift(1,SIZE_Ax)-1
|
|
else
|
|
MAXARG_Ax = MAX_INT
|
|
end
|
|
|
|
local MAXARG_A = bit32.lshift(1,SIZE_A)-1
|
|
local MAXARG_B = bit32.lshift(1,SIZE_B)-1
|
|
local MAXARG_C = bit32.lshift(1,SIZE_C)-1
|
|
|
|
local BITRK = bit32.lshift(1, (SIZE_B - 1))
|
|
|
|
local function ISK(x)
|
|
return bit32.btest(bit32.band(x, BITRK))
|
|
end
|
|
|
|
local function INDEXK(r)
|
|
return bit32.band(r, bit32.bnot(BITRK))
|
|
end
|
|
|
|
local MAXINDEXRK = BITRK - 1
|
|
|
|
local function RKASK(x)
|
|
return bit32.bor(x, BITRK)
|
|
end
|
|
|
|
local function get_bit(x,a,b)
|
|
return (math.floor((x / 2^a) % 2^b))
|
|
end
|
|
|
|
local OpArgN = 0
|
|
local OpArgU = 1
|
|
local OpArgR = 2
|
|
local OpArgK = 3
|
|
|
|
local opmodes = {
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iABC }, -- MOVE
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgN, mode = iABx }, -- OP_LOADK
|
|
{ T = 0, A = 1, B = OpArgN, C = OpArgN, mode = iABx }, -- OP_LOADKX
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgU, mode = iABC }, -- OP_LOADBOOL
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgN, mode = iABC }, -- OP_LOADNIL
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgN, mode = iABC }, -- OP_GETUPVAL
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgK, mode = iABC }, -- OP_GETTABUP
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgK, mode = iABC }, -- OP_GETTABLE
|
|
{ T = 0, A = 0, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_SETTABUP
|
|
{ T = 0, A = 0, B = OpArgU, C = OpArgN, mode = iABC }, -- OP_SETUPVAL
|
|
{ T = 0, A = 0, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_SETTABLE
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgU, mode = iABC }, -- OP_NEWTABLE
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgK, mode = iABC }, -- OP_SELF
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_ADD
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_SUB
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_MUL
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_DIV
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_MOD
|
|
{ T = 0, A = 1, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_POW
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iABC }, -- OP_UNM
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iABC }, -- OP_NOT
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iABC }, -- OP_LEN
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgR, mode = iABC }, -- OP_CONCAT
|
|
{ T = 0, A = 0, B = OpArgR, C = OpArgN, mode = iAsBx }, -- OP_JMP
|
|
{ T = 1, A = 0, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_EQ
|
|
{ T = 1, A = 0, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_LT
|
|
{ T = 1, A = 0, B = OpArgK, C = OpArgK, mode = iABC }, -- OP_LE
|
|
{ T = 1, A = 0, B = OpArgN, C = OpArgU, mode = iABC }, -- OP_TEST
|
|
{ T = 1, A = 1, B = OpArgR, C = OpArgU, mode = iABC }, -- OP_TESTSET
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgU, mode = iABC }, -- OP_CALL
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgU, mode = iABC }, -- OP_TAILCALL
|
|
{ T = 0, A = 0, B = OpArgU, C = OpArgN, mode = iABC }, -- OP_RETURN
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iAsBx }, -- OP_FORLOOP
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iAsBx }, -- OP_FORPREP
|
|
{ T = 0, A = 0, B = OpArgN, C = OpArgU, mode = iABC }, -- OP_TFORCALL
|
|
{ T = 0, A = 1, B = OpArgR, C = OpArgN, mode = iAsBx }, -- OP_TFORLOOP
|
|
{ T = 0, A = 0, B = OpArgU, C = OpArgU, mode = iABC }, -- OP_SETLIST
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgN, mode = iABx }, -- OP_CLOSURE
|
|
{ T = 0, A = 1, B = OpArgU, C = OpArgN, mode = iABC }, -- OP_VARARG
|
|
{ T = 0, A = 0, B = OpArgU, C = OpArgU, mode = iAx }, -- OP_EXTRAARG
|
|
}
|
|
|
|
local function get_op_mode(o)
|
|
return opmodes[o].mode
|
|
end
|
|
|
|
local ladconf = {
|
|
OPCODE = OPCODE,
|
|
LUA_ENV = LUA_ENV,
|
|
LUA_SOURCE = LUA_SOURCE,
|
|
LUA_SIGNATURE = LUA_SIGNATURE,
|
|
LUAC_TAIL = LUAC_TAIL,
|
|
LUAC_HEADERSIZE = LUAC_HEADERSIZE,
|
|
LUA_VERSION = LUA_VERSION,
|
|
LUA_FORMAT = LUA_FORMAT,
|
|
ENDIANNESS = ENDIANNESS,
|
|
INT = INT,
|
|
SIZE_T = SIZE_T,
|
|
INSTRUCTION = INSTRUCTION,
|
|
LUA_NUMBER = LUA_NUMBER,
|
|
INTEGRAL = INTEGRAL,
|
|
LUA_TNIL = LUA_TNIL,
|
|
LUA_TBOOLEAN = LUA_TBOOLEAN,
|
|
LUA_TNUMBER = LUA_TNUMBER,
|
|
LUA_TSTRING = LUA_TSTRING,
|
|
iABC = iABC,
|
|
iABx = iABx,
|
|
iAsBx = iAsBx,
|
|
iAx = iAx,
|
|
SIZE_C = SIZE_C,
|
|
SIZE_B = SIZE_B,
|
|
SIZE_Bx = SIZE_Bx,
|
|
SIZE_A = SIZE_A,
|
|
SIZE_Ax = SIZE_Ax,
|
|
SIZE_OP = SIZE_OP,
|
|
POS_OP = POS_OP,
|
|
POS_A = POS_A,
|
|
POS_C = POS_C,
|
|
POS_B = POS_B,
|
|
POS_Bx = POS_Bx,
|
|
POS_Ax = POS_Ax,
|
|
MASK_OP = MASK_OP,
|
|
MASK_A = MASK_A,
|
|
MASK_B = MASK_B,
|
|
MASK_C = MASK_C,
|
|
MASK_Bx = MASK_Bx,
|
|
MASK_Ax = MASK_Ax,
|
|
ABC = ABC,
|
|
INT_MAX = INT_MAX,
|
|
LUAI_BITSINT = LUAI_BITSINT,
|
|
MAX_INT = MAX_INT,
|
|
MAXARG_Bx = MAXARG_Bx,
|
|
MAXARG_sBx = MAXARG_sBx,
|
|
MAXARG_Ax = MAXARG_Ax,
|
|
MAXARG_A = MAXARG_A,
|
|
MAXARG_B = MAXARG_B,
|
|
MAXARG_C = MAXARG_C,
|
|
BITRK = BITRK,
|
|
ISK = ISK,
|
|
INDEXK = INDEXK,
|
|
MAXINDEXRK = MAXINDEXRK,
|
|
RKASK = RKASK,
|
|
get_bit = get_bit,
|
|
OpArgN = OpArgN,
|
|
OpArgU = OpArgU,
|
|
OpArgR = OpArgR,
|
|
OpArgK = OpArgK,
|
|
opmodes = opmodes,
|
|
get_op_mode = get_op_mode,
|
|
}
|
|
|
|
return ladconf
|