details (from lhf)

1999-02-25 18:07:26 -03:00
parent 31bea2190b
commit 6a853fcb8b
13 changed files with 106 additions and 103 deletions
--- a/lopcodes.h
+++ b/lopcodes.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lopcodes.h,v 1.26 1999/02/23 13:38:38 roberto Exp roberto $
+** $Id: lopcodes.h,v 1.27 1999/02/24 17:55:51 roberto Exp roberto $
 ** Opcodes for Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -17,97 +17,97 @@
 typedef enum {
 /* name          parm    before          after           side effect
 -----------------------------------------------------------------------------*/
-ENDCODE,/*	-	-		-  */
-RETCODE,/*	b	-		-  */
+ENDCODE,/*	-	-		-				*/
+RETCODE,/*	b	-		-				*/

-PUSHNIL,/*	b	-		nil_0...nil_b  */
-POP,/*		b	-		-		TOP-=b  */
-POPDUP,/*	b	v		v		TOP-=b  */
+PUSHNIL,/*	b	-		nil_0...nil_b			*/
+POP,/*		b	-		-		TOP-=b		*/
+POPDUP,/*	b	v		v		TOP-=b		*/

-PUSHNUMBERW,/*	w	-		(float)w */
-PUSHNUMBER,/*	b	-		(float)b */
+PUSHNUMBERW,/*	w	-		(float)w			*/
+PUSHNUMBER,/*	b	-		(float)b			*/

-PUSHNUMBERNEGW,/* w	-		(float)-w */
-PUSHNUMBERNEG,/* b	-		(float)-b */
+PUSHNUMBERNEGW,/* w	-		(float)-w			*/
+PUSHNUMBERNEG,/* b	-		(float)-b			*/

-PUSHCONSTANTW,/*w	-		CNST[w] */
-PUSHCONSTANT,/*	b	-		CNST[b] */
+PUSHCONSTANTW,/*w	-		CNST[w]				*/
+PUSHCONSTANT,/*	b	-		CNST[b]				*/

-PUSHUPVALUE,/*	b	-		Closure[b] */
+PUSHUPVALUE,/*	b	-		Closure[b]			*/

-PUSHLOCAL,/*	b	-		LOC[b]  */
+PUSHLOCAL,/*	b	-		LOC[b]				*/

-GETGLOBALW,/*	w	-		VAR[CNST[w]]  */
-GETGLOBAL,/*	b 	-		VAR[CNST[b]]  */
+GETGLOBALW,/*	w	-		VAR[CNST[w]]			*/
+GETGLOBAL,/*	b	-		VAR[CNST[b]]			*/

-GETTABLE,/*	-	i t		t[i]  */
+GETTABLE,/*	-	i t		t[i]				*/

-GETDOTTEDW,/*	w	t		t[CNST[w]]  */
-GETDOTTED,/*	b	t		t[CNST[b]]  */
+GETDOTTEDW,/*	w	t		t[CNST[w]]			*/
+GETDOTTED,/*	b	t		t[CNST[b]]			*/

-PUSHSELFW,/*	w	t		t t[CNST[w]]  */
-PUSHSELF,/*	b	t		t t[CNST[b]]  */
+PUSHSELFW,/*	w	t		t t[CNST[w]]			*/
+PUSHSELF,/*	b	t		t t[CNST[b]]			*/

-CREATEARRAYW,/*	w	-		newarray(size = w)  */
-CREATEARRAY,/*	b	-		newarray(size = b)  */
+CREATEARRAYW,/*	w	-		newarray(size = w)		*/
+CREATEARRAY,/*	b	-		newarray(size = b)		*/

-SETLOCAL,/*	b	x		-		LOC[b]=x  */
-SETLOCALDUP,/*	b	x		x		LOC[b]=x  */
+SETLOCAL,/*	b	x		-		LOC[b]=x	*/
+SETLOCALDUP,/*	b	x		x		LOC[b]=x	*/

-SETGLOBALW,/*	w	x		-		VAR[CNST[w]]=x  */
-SETGLOBAL,/*	b	x		-		VAR[CNST[b]]=x  */
-SETGLOBALDUPW,/*w	x		x		VAR[CNST[w]]=x  */
-SETGLOBALDUP,/*	b	x		x		VAR[CNST[b]]=x  */
+SETGLOBALW,/*	w	x		-		VAR[CNST[w]]=x	*/
+SETGLOBAL,/*	b	x		-		VAR[CNST[b]]=x	*/
+SETGLOBALDUPW,/*w	x		x		VAR[CNST[w]]=x	*/
+SETGLOBALDUP,/*	b	x		x		VAR[CNST[b]]=x	*/

-SETTABLEPOP,/*	-	v i t		-		t[i]=v  */
-SETTABLEPOPDUP,/* -	v i t		v		t[i]=v  */
+SETTABLEPOP,/*	-	v i t		-		t[i]=v		*/
+SETTABLEPOPDUP,/* -	v i t		v		t[i]=v		*/

-SETTABLE,/*	b	v a_b...a_1 i t	a_b...a_1 i t	t[i]=v  */
-SETTABLEDUP,/*	b	v a_b...a_1 i t	v a_b...a_1 i t	t[i]=v  */
+SETTABLE,/*	b	v a_b...a_1 i t	a_b...a_1 i t	t[i]=v		*/
+SETTABLEDUP,/*	b	v a_b...a_1 i t	v a_b...a_1 i t	t[i]=v		*/

-SETLISTW,/*	w c	v_c...v_1 t	-		t[i+w*FPF]=v_i  */
-SETLIST,/*	b c	v_c...v_1 t	-		t[i+b*FPF]=v_i  */
+SETLISTW,/*	w c	v_c...v_1 t	-		t[i+w*FPF]=v_i	*/
+SETLIST,/*	b c	v_c...v_1 t	-		t[i+b*FPF]=v_i	*/

-SETMAP,/*	b	v_b k_b ...v_0 k_0 t	t	t[k_i]=v_i  */
+SETMAP,/*	b	v_b k_b ...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  */
-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  */
+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				*/
+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		*/

-ONTJMPW,/*	w	x		(x!=nil)? x : -	(x!=nil)? PC+=w  */
-ONTJMP,/*	b	x		(x!=nil)? x : -	(x!=nil)? PC+=b  */
-ONFJMPW,/*	w	x		(x==nil)? x : -	(x==nil)? PC+=w  */
-ONFJMP,/*	b	x		(x==nil)? x : -	(x==nil)? PC+=b  */
-JMPW,/*		w	-		-		PC+=w  */
-JMP,/*		b	-		-		PC+=b  */
-IFFJMPW,/*	w	x		-		(x==nil)? PC+=w  */
-IFFJMP,/*	b	x		-		(x==nil)? PC+=b  */
-IFTUPJMPW,/*	w	x		-		(x!=nil)? PC-=w  */
-IFTUPJMP,/*	b	x		-		(x!=nil)? PC-=b  */
-IFFUPJMPW,/*	w	x		-		(x==nil)? PC-=w  */
-IFFUPJMP,/*	b	x		-		(x==nil)? PC-=b  */
+ONTJMPW,/*	w	x		(x!=nil)? x : -	(x!=nil)? PC+=w	*/
+ONTJMP,/*	b	x		(x!=nil)? x : -	(x!=nil)? PC+=b	*/
+ONFJMPW,/*	w	x		(x==nil)? x : -	(x==nil)? PC+=w	*/
+ONFJMP,/*	b	x		(x==nil)? x : -	(x==nil)? PC+=b	*/
+JMPW,/*		w	-		-		PC+=w		*/
+JMP,/*		b	-		-		PC+=b		*/
+IFFJMPW,/*	w	x		-		(x==nil)? PC+=w	*/
+IFFJMP,/*	b	x		-		(x==nil)? PC+=b	*/
+IFTUPJMPW,/*	w	x		-		(x!=nil)? PC-=w	*/
+IFTUPJMP,/*	b	x		-		(x!=nil)? PC-=b	*/
+IFFUPJMPW,/*	w	x		-		(x==nil)? PC-=w	*/
+IFFUPJMP,/*	b	x		-		(x==nil)? PC-=b	*/

-CLOSUREW,/*	w c	v_c...v_1	closure(CNST[w], v_c...v_1) */
-CLOSURE,/*	b c	v_c...v_1	closure(CNST[b], v_c...v_1) */
+CLOSUREW,/*	w c	v_c...v_1	closure(CNST[w], v_c...v_1)	*/
+CLOSURE,/*	b c	v_c...v_1	closure(CNST[b], v_c...v_1)	*/

-CALLFUNC,/*	b c	v_c...v_1 f	r_b...r_1	f(v1,...,v_c)  */
+CALLFUNC,/*	b c	v_c...v_1 f	r_b...r_1	f(v1,...,v_c)	*/

-SETLINEW,/*	w	-		-		LINE=w  */
-SETLINE,/*	b	-		-		LINE=b  */
+SETLINEW,/*	w	-		-		LINE=w		*/
+SETLINE,/*	b	-		-		LINE=b		*/

-LONGARGW,/*	w	(add w*(1<<16) to arg of next instruction) */
-LONGARG,/*	b	(add b*(1<<16) to arg of next instruction) */
+LONGARGW,/*	w	(add w*(1<<16) to arg of next instruction)	*/
+LONGARG,/*	b	(add b*(1<<16) to arg of next instruction)	*/

 CHECKSTACK /*	b  (assert #temporaries == b; only for internal debuging!) */