mirror of https://github.com/arendst/Tasmota.git
58 lines
3.6 KiB
C
58 lines
3.6 KiB
C
/********************************************************************
|
|
** Copyright (c) 2018-2020 Guan Wenliang
|
|
** This file is part of the Berry default interpreter.
|
|
** skiars@qq.com, https://github.com/Skiars/berry
|
|
** See Copyright Notice in the LICENSE file or at
|
|
** https://github.com/Skiars/berry/blob/master/LICENSE
|
|
********************************************************************/
|
|
/* define opcode, don't change order */
|
|
/* opcode parameters description */
|
|
OPCODE(ADD), /* A, B, C | R(A) <- RK(B) + RK(C) */
|
|
OPCODE(SUB), /* A, B, C | R(A) <- RK(B) - RK(C) */
|
|
OPCODE(MUL), /* A, B, C | R(A) <- RK(B) * RK(C) */
|
|
OPCODE(DIV), /* A, B, C | R(A) <- RK(B) / RK(C) */
|
|
OPCODE(MOD), /* A, B, C | R(A) <- RK(B) % RK(C) */
|
|
OPCODE(LT), /* A, B, C | R(A) <- RK(B) < RK(C) */
|
|
OPCODE(LE), /* A, B, C | R(A) <- RK(B) <= RK(C) */
|
|
OPCODE(EQ), /* A, B, C | R(A) <- RK(B) == RK(C) */
|
|
OPCODE(NE), /* A, B, C | R(A) <- RK(B) != RK(C) */
|
|
OPCODE(GT), /* A, B, C | R(A) <- RK(B) > RK(C) */
|
|
OPCODE(GE), /* A, B, C | R(A) <- RK(B) >= RK(C) */
|
|
OPCODE(AND), /* A, B, C | R(A) <- RK(B) & RK(C) */
|
|
OPCODE(OR), /* A, B, C | R(A) <- RK(B) | RK(C) */
|
|
OPCODE(XOR), /* A, B, C | R(A) <- RK(B) ^ RK(C) */
|
|
OPCODE(SHL), /* A, B, C | R(A) <- RK(B) << RK(C) */
|
|
OPCODE(SHR), /* A, B, C | R(A) <- RK(B) >> RK(C) */
|
|
OPCODE(CONNECT), /* A, B, C | R(A) <- connect(RK(B), RK(C)) */
|
|
OPCODE(NEG), /* A, B | R(A) <- -RK(B) */
|
|
OPCODE(FLIP), /* A, B | R(A) <- ~RK(B) */
|
|
OPCODE(LDNIL), /* A | R(A) <- nil */
|
|
OPCODE(LDBOOL), /* A, B, C | R(A) <- cast_bool(B), if(C): pc++ */
|
|
OPCODE(LDINT), /* A, sBx | R(A) <- sBx */
|
|
OPCODE(LDCONST), /* A, Bx | R(A) <- K(Bx) */
|
|
OPCODE(MOVE), /* A, B, C | R(A) <- RK(B) */
|
|
OPCODE(GETGBL), /* A, Bx | R(A) <- GLOBAL(Bx) */
|
|
OPCODE(SETGBL), /* A, Bx | R(A) -> GLOBAL(Bx) */
|
|
OPCODE(GETUPV), /* A, Bx | R(A) <- UPVALUE(Bx)*/
|
|
OPCODE(SETUPV), /* A, Bx | R(A) -> UPVALUE(Bx)*/
|
|
OPCODE(JMP), /* sBx | pc <- pc + sBx */
|
|
OPCODE(JMPT), /* A, sBx | if(R(A)): pc <- pc + sBx */
|
|
OPCODE(JMPF), /* A, sBx | if(not R(A)): pc <- pc + sBx */
|
|
OPCODE(CALL), /* A, B | CALL(R(A), B) */
|
|
OPCODE(RET), /* A, B | if (R(A)) R(-1) <- RK(B) else R(-1) <- nil */
|
|
OPCODE(CLOSURE), /* A, Bx | R(A) <- CLOSURE(proto_table[Bx])*/
|
|
OPCODE(GETMBR), /* A, B, C | R(A) <- RK(B).RK(C) */
|
|
OPCODE(GETMET), /* A, B, C | R(A) <- RK(B).RK(C), R(A+1) <- RK(B) */
|
|
OPCODE(SETMBR), /* A, B, C | R(A).RK(B) <- RK(C) */
|
|
OPCODE(GETIDX), /* A, B, C | R(A) <- RK(B)[RK(C)] */
|
|
OPCODE(SETIDX), /* A, B, C | R(A)[RK(B)] <- RK(C) */
|
|
OPCODE(SETSUPER), /* A, B | class:R(A) set super with class:RK(B) */
|
|
OPCODE(CLOSE), /* A | close upvalues */
|
|
OPCODE(IMPORT), /* A, B, C | IF (A == C) import module name as RK(B) to RK(A), ELSE from module RK(C) import name as RK(B) to RK(A) */
|
|
OPCODE(EXBLK), /* A, Bx | ... */
|
|
OPCODE(CATCH), /* A, B, C | ... */
|
|
OPCODE(RAISE), /* A, B, C | RAISE(B,C) B is code, C is description. A==0 only B provided, A==1 B and C are provided, A==2 rethrow with both parameters already on stack */
|
|
OPCODE(CLASS), /* Bx | init class in K[Bx] */
|
|
OPCODE(GETNGBL), /* A, B | R(A) <- GLOBAL[RK(B)] by name */
|
|
OPCODE(SETNGBL) /* A, B | R(A) -> GLOBAL[RK(B)] by name */
|