mirror of
https://github.com/lua/lua
synced 2024-11-26 06:39:41 +03:00
153 lines
4.6 KiB
C
153 lines
4.6 KiB
C
/*
|
|
** $Id: lopcodes.h,v 1.44 2000/03/03 18:53:17 roberto Exp roberto $
|
|
** Opcodes for Lua virtual machine
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lopcodes_h
|
|
#define lopcodes_h
|
|
|
|
|
|
|
|
/*===========================================================================
|
|
We assume that instructions are unsigned numbers with 4 bytes.
|
|
All instructions have an opcode in the lower byte. Moreover,
|
|
an instruction can have 0, 1, or 2 arguments. There are 4 types of
|
|
Instructions:
|
|
type 0: no arguments
|
|
type 1: 1 unsigned argument in the higher 24 bits (called `U')
|
|
type 2: 1 signed argument in the higher 24 bits (`S')
|
|
type 3: 1st unsigned argument in the higher 16 bits (`A')
|
|
2nd unsigned argument in the middle 8 bits (`B')
|
|
|
|
The signed argument is represented in excess 2^23; that is, the real value
|
|
is the usigned value minus 2^23.
|
|
===========================================================================*/
|
|
|
|
#define SIZE_OP 8
|
|
#define SIZE_U 24
|
|
#define POS_U 8
|
|
#define SIZE_S 24
|
|
#define POS_S 8
|
|
#define SIZE_A 16
|
|
#define POS_A 16
|
|
#define SIZE_B 8
|
|
#define POS_B 8
|
|
|
|
#define EXCESS_S (1<<(SIZE_S-1)) /* == 2^23 */
|
|
|
|
|
|
/* creates a mask with `n' 1 bits at position `p' */
|
|
#define MASK1(n,p) ((~((~0ul)<<n))<<p)
|
|
|
|
/* creates a mask with `n' 0 bits at position `p' */
|
|
#define MASK0(n,p) (~MASK1(n,p))
|
|
|
|
/*
|
|
** the following macros help to manipulate instructions
|
|
*/
|
|
|
|
#define MAXARG_U ((1<<SIZE_U)-1)
|
|
#define MAXARG_S ((1<<(SIZE_S-1))-1) /* `S' is signed */
|
|
#define MAXARG_A ((1<<SIZE_A)-1)
|
|
#define MAXARG_B ((1<<SIZE_B)-1)
|
|
|
|
#define GET_OPCODE(i) ((OpCode)((i)&MASK1(SIZE_OP,0)))
|
|
#define GETARG_U(i) ((int)((i)>>POS_U))
|
|
#define GETARG_S(i) ((int)((i)>>POS_S)-EXCESS_S)
|
|
#define GETARG_A(i) ((int)((i)>>POS_A))
|
|
#define GETARG_B(i) ((int)(((i)>>POS_B) & MASK1(SIZE_B,0)))
|
|
|
|
#define SET_OPCODE(i,o) (((i)&MASK0(SIZE_OP,0)) | (Instruction)(o))
|
|
#define SETARG_U(i,u) (((i)&MASK0(SIZE_U,POS_U)) | ((Instruction)(u)<<POS_U))
|
|
#define SETARG_S(i,s) (((i)&MASK0(SIZE_S,POS_S)) | ((Instruction)((s)+EXCESS_S)<<POS_S))
|
|
#define SETARG_A(i,a) (((i)&MASK0(SIZE_A,POS_A)) | ((Instruction)(a)<<POS_A))
|
|
#define SETARG_B(i,b) (((i)&MASK0(SIZE_B,POS_B)) | ((Instruction)(b)<<POS_B))
|
|
|
|
#define CREATE_0(o) ((Instruction)(o))
|
|
#define CREATE_U(o,u) ((Instruction)(o) | (Instruction)(u)<<POS_U)
|
|
#define CREATE_S(o,s) ((Instruction)(o) | ((Instruction)(s)+EXCESS_S)<<POS_S)
|
|
#define CREATE_AB(o,a,b) ((Instruction)(o) | ((Instruction)(a)<<POS_A) \
|
|
| ((Instruction)(b)<<POS_B))
|
|
|
|
|
|
/*
|
|
** K = U argument used as index to `kstr'
|
|
** J = S argument used as jump offset (relative to pc of next instruction)
|
|
** L = U argument used as index of local variable
|
|
** N = U argument used as index to `knum'
|
|
*/
|
|
|
|
typedef enum {
|
|
/*----------------------------------------------------------------------
|
|
name args stack before stack after side effects
|
|
------------------------------------------------------------------------*/
|
|
ENDCODE,/* - - (return) */
|
|
RETCODE,/* U - (return) */
|
|
|
|
CALL,/* A B v_n-v_1 f(at a) r_b-r_1 f(v1,...,v_n) */
|
|
TAILCALL,/* A B v_a-v_1 f (return) f(v1,...,v_a) */
|
|
|
|
PUSHNIL,/* U - nil_1-nil_u */
|
|
POP,/* U a_u-a_1 - */
|
|
|
|
PUSHINT,/* S - (real)s */
|
|
PUSHSTRING,/* K - KSTR[k] */
|
|
PUSHNUM,/* N - KNUM[u] */
|
|
PUSHNEGNUM,/* N - -KNUM[u] */
|
|
|
|
PUSHUPVALUE,/* U - Closure[u] */
|
|
|
|
PUSHLOCAL,/* L - LOC[u] */
|
|
GETGLOBAL,/* K - VAR[KSTR[k]] */
|
|
|
|
GETTABLE,/* - i t t[i] */
|
|
GETDOTTED,/* K t t[KSTR[k]] */
|
|
PUSHSELF,/* K t t t[KSTR[k]] */
|
|
|
|
CREATETABLE,/* U - newarray(size = u) */
|
|
|
|
SETLOCAL,/* L x - LOC[u]=x */
|
|
SETGLOBAL,/* K x - VAR[KSTR[k]]=x */
|
|
SETTABLEPOP,/* - v i t - t[i]=v */
|
|
SETTABLE,/* U v a_u-a_1 i t a_u-a_1 i t t[i]=v */
|
|
|
|
SETLIST,/* A B v_b-v_0 t t t[i+a*FPF]=v_i */
|
|
SETMAP,/* U v_u k_u - v_0 k_0 t t t[k_i]=v_i */
|
|
|
|
NEQOP,/* - y x (x~=y)? 1 : nil */
|
|
EQOP,/* - y x (x==y)? 1 : nil */
|
|
LTOP,/* - y x (x<y)? 1 : nil */
|
|
LEOP,/* - y x (x<y)? 1 : nil */
|
|
GTOP,/* - y x (x>y)? 1 : nil */
|
|
GEOP,/* - y x (x>=y)? 1 : nil */
|
|
|
|
ADDOP,/* - y x x+y */
|
|
ADDI,/* S x x+s */
|
|
SUBOP,/* - y x x-y */
|
|
MULTOP,/* - y x x*y */
|
|
DIVOP,/* - y x x/y */
|
|
POWOP,/* - y x x^y */
|
|
CONCOP,/* U v_u-v_1 v1..-..v_u */
|
|
MINUSOP,/* - x -x */
|
|
NOTOP,/* - x (x==nil)? 1 : nil */
|
|
|
|
ONTJMP,/* J x (x!=nil)? x : - (x!=nil)? PC+=s */
|
|
ONFJMP,/* J x (x==nil)? x : - (x==nil)? PC+=s */
|
|
JMP,/* J - - PC+=s */
|
|
IFTJMP,/* J x - (x!=nil)? PC+=s */
|
|
IFFJMP,/* J x - (x==nil)? PC+=s */
|
|
|
|
CLOSURE,/* A B v_b-v_1 closure(CNST[a], v_b-v_1) */
|
|
|
|
SETLINE/* U - - LINE=u */
|
|
|
|
} OpCode;
|
|
|
|
|
|
#define RFIELDS_PER_FLUSH 32 /* records (SETMAP) */
|
|
#define LFIELDS_PER_FLUSH 64 /* FPF - lists (SETLIST) (<=MAXARG_B) */
|
|
|
|
|
|
#endif
|