Opcodes for Lua virtual machine

1997-09-16 16:25:59 -03:00
parent 451124005b
commit d985dc0629
2 changed files with 97 additions and 167 deletions
--- a/lopcodes.h
+++ b/lopcodes.h
@@ -0,0 +1,97 @@
+/*
+** $Id: $
+** Opcodes for Lua virtual machine
+** See Copyright Notice in lua.h
+*/
+
+#ifndef lopcodes_h
+#define lopcodes_h
+
+
+typedef enum {
+/* name          parm    before          after           side effect
+-----------------------------------------------------------------------------*/
+ENDCODE,
+
+PUSHNIL,/*		-		nil  */
+PUSHNILS,/*	b	-		nil_1...nil_b  */
+PUSH0,/*		-		0.0  */
+PUSH1,/*		-		1.0  */
+PUSH2,/*		-		2.0  */
+PUSHBYTE,/*	b	-		(float)b  */
+PUSHWORD,/*	w	-		(float)w  */
+PUSHCONSTANTB,/*b	-		CNST[b] */
+PUSHCONSTANT,/* w	-		CNST[w] */
+PUSHUPVALUE0,
+PUSHUPVALUE,/*	b	-		Closure[b] */
+PUSHLOCAL0,/*		-		LOC[0]  */
+PUSHLOCAL1,/*		-		LOC[1]  */
+PUSHLOCAL2,/*		-		LOC[2]  */
+PUSHLOCAL3,/*		-		LOC[3]  */
+PUSHLOCAL4,/*		-		LOC[4]  */
+PUSHLOCAL5,/*		-		LOC[5]  */
+PUSHLOCAL6,/*		-		LOC[6]  */
+PUSHLOCAL7,/*		-		LOC[7]  */
+PUSHLOCAL8,/*		-		LOC[8]  */
+PUSHLOCAL9,/*		-		LOC[9]  */
+PUSHLOCAL,/*	b	-		LOC[b]  */
+PUSHGLOBAL,/*	w	-		VAR[w]  */
+PUSHTABLE,/*		i t		t[i]  */
+PUSHSELF,/*	w	t		t t[CNST[w]]  */
+CREATEARRAY,/*	w	-		newarray(size = w)  */
+
+SETLOCAL0,/*		x		-		LOC[0]=x  */
+SETLOCAL1,/*		x		-		LOC[1]=x  */
+SETLOCAL2,/*		x		-		LOC[2]=x  */
+SETLOCAL3,/*		x		-		LOC[3]=x  */
+SETLOCAL4,/*		x		-		LOC[4]=x  */
+SETLOCAL5,/*		x		-		LOC[5]=x  */
+SETLOCAL6,/*		x		-		LOC[6]=x  */
+SETLOCAL7,/*		x		-		LOC[7]=x  */
+SETLOCAL8,/*		x		-		LOC[8]=x  */
+SETLOCAL9,/*		x		-		LOC[9]=x  */
+SETLOCAL,/*	b	x		-		LOC[b]=x  */
+SETGLOBAL,/*	w	x		-		VAR[w]=x  */
+SETTABLE0,/*	v i t		-		t[i]=v  */
+SETTABLE,/*	b	v a_b...a_1 i t	a_b...a_1 i t	t[i]=v  */
+SETLIST0,/*	b	v_b...v_1 t	-		t[i]=v_i  */
+SETLIST,/*	b c	v_b...v_1 t	-		t[i+c*FPF]=v_i  */
+SETMAP,/*	b	v_b k_b ...v_1 k_1 t	t	t[k_i]=v_i  */
+
+EQOP,/*			y x		(x==y)? 1 : nil  */
+NEQOP,/*		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  */
+SUBOP,/*		y x		x-y  */
+MULTOP,/*		y x		x*y  */
+DIVOP,/*		y x		x/y  */
+POWOP,/*		y x		x^y  */
+CONCOP,/*		y x		x..y  */
+MINUSOP,/*		x		-x  */
+NOTOP,/*		x		(x==nil)? 1 : nil  */
+
+ONTJMP,/*	w	x		(x!=nil)? x : -	(x!=nil)? PC+=w  */
+ONFJMP,/*	w	x		(x==nil)? x : -	(x==nil)? PC+=w  */
+JMP,/*		w	-		-		PC+=w  */
+UPJMP,/*	w	-		-		PC-=w  */
+IFFJMP,/*	w	x		-		(x==nil)? PC+=w  */
+IFFUPJMP,/*	w	x		-		(x==nil)? PC-=w  */
+
+CLOSURE,/*		f v_1...v_n	c(f) */
+CALLFUNC,/*	b c	v_b...v_1 f	r_c...r_1	f(v1,...,v_b)  */
+RETCODE,/*	b	-		-  */
+SETLINE,/*	w	-		-		LINE=w  */
+POPS,/*		b	-		-		TOP-=b  */
+ARGS,/*		b	-		-		TOP=BASE+b  */
+VARARGS/*	b	v_x...v_1	{v_1...v_x;n=x}	TOP=BASE+b+1  */
+} OpCode;
+
+
+#define RFIELDS_PER_FLUSH 32	/* records (SETMAP) */
+#define LFIELDS_PER_FLUSH 64    /* lists (SETLIST) */
+
+
+#endif