documentation of opcode meanings (thanks to lhf)

opcode.h

@@ -1,6 +1,6 @@
 /*
 ** TeCGraf - PUC-Rio
-** $Id: opcode.h,v 3.21 1996/05/28 21:07:32 roberto Exp roberto $
+** $Id: opcode.h,v 3.22 1996/09/24 21:46:44 roberto Exp roberto $
 */
 
 #ifndef opcode_h
@@ -15,60 +15,83 @@
 #define FIELDS_PER_FLUSH 40
 
 
-typedef enum 
+typedef enum {
-{ 
+/* name          parm    before          after           side effect
- PUSHNIL,
+-----------------------------------------------------------------------------*/
- PUSH0, PUSH1, PUSH2,
+
- PUSHBYTE,
+PUSHNIL,/*		-		nil  */
- PUSHWORD,
+PUSH0,/*		-		0.0  */
- PUSHFLOAT,
+PUSH1,/*		-		1.0  */
- PUSHSTRING,
+PUSH2,/*		-		2.0  */
- PUSHFUNCTION,
+PUSHBYTE,/*	b	-		(float)b  */
- PUSHLOCAL0, PUSHLOCAL1, PUSHLOCAL2, PUSHLOCAL3, PUSHLOCAL4,
+PUSHWORD,/*	w	-		(float)w  */
- PUSHLOCAL5, PUSHLOCAL6, PUSHLOCAL7, PUSHLOCAL8, PUSHLOCAL9,
+PUSHFLOAT,/*	f	-		f  */
- PUSHLOCAL,
+PUSHSTRING,/*	w	-		STR[w]  */
- PUSHGLOBAL,
+PUSHFUNCTION,/*	p	-		FUN(p)  */
- PUSHINDEXED,
+PUSHLOCAL0,/*		-		LOC[0]  */
- PUSHSELF,
+PUSHLOCAL1,/*		-		LOC[1]  */
- STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4,
+PUSHLOCAL2,/*		-		LOC[2]  */
- STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9,
+PUSHLOCAL3,/*		-		LOC[3]  */
- STORELOCAL,
+PUSHLOCAL4,/*		-		LOC[4]  */
- STOREGLOBAL,
+PUSHLOCAL5,/*		-		LOC[5]  */
- STOREINDEXED0,
+PUSHLOCAL6,/*		-		LOC[6]  */
- STOREINDEXED,
+PUSHLOCAL7,/*		-		LOC[7]  */
- STORELIST0,
+PUSHLOCAL8,/*		-		LOC[8]  */
- STORELIST,
+PUSHLOCAL9,/*		-		LOC[9]  */
- STORERECORD,
+PUSHLOCAL,/*	w	-		LOC[w]  */
- ADJUST0,
+PUSHGLOBAL,/*	w	-		VAR[w]  */
- ADJUST,
+PUSHINDEXED,/*		i t		t[i]  */
- CREATEARRAY,
+PUSHSELF,/*	w	t		t t[STR[w]]  */
- EQOP,
+STORELOCAL0,/*		x		-		LOC[0]=x  */
- LTOP,
+STORELOCAL1,/*		x		-		LOC[1]=x  */
- LEOP,
+STORELOCAL2,/*		x		-		LOC[2]=x  */
- GTOP,
+STORELOCAL3,/*		x		-		LOC[3]=x  */
- GEOP,
+STORELOCAL4,/*		x		-		LOC[4]=x  */
- ADDOP,
+STORELOCAL5,/*		x		-		LOC[5]=x  */
- SUBOP,
+STORELOCAL6,/*		x		-		LOC[6]=x  */
- MULTOP,
+STORELOCAL7,/*		x		-		LOC[7]=x  */
- DIVOP,
+STORELOCAL8,/*		x		-		LOC[8]=x  */
- POWOP,
+STORELOCAL9,/*		x		-		LOC[9]=x  */
- CONCOP,
+STORELOCAL,/*	w	x		-		LOC[w]=x  */
- MINUSOP,
+STOREGLOBAL,/*	w	x		-		VAR[w]=x  */
- NOTOP,
+STOREINDEXED0,/*	v i t		-		t[i]=v  */
- ONTJMP,
+STOREINDEXED,/*	b	v a_b...a_1 i t	a_b...a_1 i t	t[i]=v  */
- ONFJMP,
+STORELIST0,/*	w	v_w...v_1 t	-		t[i]=v_i  */
- JMP,
+STORELIST,/*	w n	v_w...v_1 t	-		t[i+n*FPF]=v_i  */
- UPJMP,
+STORERECORD,/*	n
- IFFJMP,
+		w_n...w_1 v_n...v_1 t	-		t[STR[w_i]]=v_i  */
- IFFUPJMP,
+ADJUST0,/*		-		-		TOP=BASE  */
- POP,
+ADJUST,/*	b	-		-		TOP=BASE+b  */
- CALLFUNC,
+CREATEARRAY,/*	w	-		newarray(size = w)  */
+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  */
+ONTJMP,/*		w	x	-		(x!=nil)? PC+=w  */
+ONFJMP,/*		w	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  */
+POP,/*			x		-  */
+CALLFUNC,/*	n m	v_n...v_1 f	r_m...r_1	f(v1,...,v_n)  */
 RETCODE0,
- RETCODE,
+RETCODE,/*	b	-		-  */
- SETLINE,
+SETLINE,/*	w	-		-		LINE=w  */
- VARARGS
+VARARGS/*	b	v_n...v_1	{v_1...v_n;n=n}  */
+
 } OpCode;
 
+
 #define MULT_RET	255