diff options
Diffstat (limited to 'src/opcode.h')
| -rw-r--r-- | src/opcode.h | 155 |
1 files changed, 81 insertions, 74 deletions
diff --git a/src/opcode.h b/src/opcode.h index d42ff3ee..381efbc8 100644 --- a/src/opcode.h +++ b/src/opcode.h @@ -1,6 +1,6 @@ /* ** TeCGraf - PUC-Rio -** $Id: opcode.h,v 3.20 1996/03/15 13:13:13 roberto Exp $ +** $Id: opcode.h,v 3.24 1996/11/01 12:46:59 roberto Exp $ */ #ifndef opcode_h @@ -15,59 +15,83 @@ #define FIELDS_PER_FLUSH 40 -typedef enum -{ - PUSHNIL, - PUSH0, PUSH1, PUSH2, - PUSHBYTE, - PUSHWORD, - PUSHFLOAT, - PUSHSTRING, - PUSHFUNCTION, - PUSHLOCAL0, PUSHLOCAL1, PUSHLOCAL2, PUSHLOCAL3, PUSHLOCAL4, - PUSHLOCAL5, PUSHLOCAL6, PUSHLOCAL7, PUSHLOCAL8, PUSHLOCAL9, - PUSHLOCAL, - PUSHGLOBAL, - PUSHINDEXED, - PUSHSELF, - STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4, - STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9, - STORELOCAL, - STOREGLOBAL, - STOREINDEXED0, - STOREINDEXED, - STORELIST0, - STORELIST, - STORERECORD, - ADJUST0, - ADJUST, - CREATEARRAY, - EQOP, - LTOP, - LEOP, - GTOP, - GEOP, - ADDOP, - SUBOP, - MULTOP, - DIVOP, - POWOP, - CONCOP, - MINUSOP, - NOTOP, - ONTJMP, - ONFJMP, - JMP, - UPJMP, - IFFJMP, - IFFUPJMP, - POP, - CALLFUNC, - RETCODE0, - RETCODE, - SETLINE +typedef enum { +/* name parm before after side effect +-----------------------------------------------------------------------------*/ + +PUSHNIL,/* - nil */ +PUSH0,/* - 0.0 */ +PUSH1,/* - 1.0 */ +PUSH2,/* - 2.0 */ +PUSHBYTE,/* b - (float)b */ +PUSHWORD,/* w - (float)w */ +PUSHFLOAT,/* f - f */ +PUSHSTRING,/* w - STR[w] */ +PUSHFUNCTION,/* p - FUN(p) */ +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,/* w - LOC[w] */ +PUSHGLOBAL,/* w - VAR[w] */ +PUSHINDEXED,/* i t t[i] */ +PUSHSELF,/* w t t t[STR[w]] */ +STORELOCAL0,/* x - LOC[0]=x */ +STORELOCAL1,/* x - LOC[1]=x */ +STORELOCAL2,/* x - LOC[2]=x */ +STORELOCAL3,/* x - LOC[3]=x */ +STORELOCAL4,/* x - LOC[4]=x */ +STORELOCAL5,/* x - LOC[5]=x */ +STORELOCAL6,/* x - LOC[6]=x */ +STORELOCAL7,/* x - LOC[7]=x */ +STORELOCAL8,/* x - LOC[8]=x */ +STORELOCAL9,/* x - LOC[9]=x */ +STORELOCAL,/* w x - LOC[w]=x */ +STOREGLOBAL,/* w x - VAR[w]=x */ +STOREINDEXED0,/* v i t - t[i]=v */ +STOREINDEXED,/* b v a_b...a_1 i t a_b...a_1 i t t[i]=v */ +STORELIST0,/* w v_w...v_1 t - t[i]=v_i */ +STORELIST,/* w n v_w...v_1 t - t[i+n*FPF]=v_i */ +STORERECORD,/* n + w_n...w_1 v_n...v_1 t - t[STR[w_i]]=v_i */ +ADJUST0,/* - - TOP=BASE */ +ADJUST,/* b - - TOP=BASE+b */ +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,/* b - - */ +SETLINE,/* w - - LINE=w */ +VARARGS/* b v_n...v_1 {v_1...v_n;n=n} */ + } OpCode; + #define MULT_RET 255 @@ -103,32 +127,15 @@ typedef struct Object #define s_tag(i) (tag(&s_object(i))) #define s_nvalue(i) (nvalue(&s_object(i))) #define s_svalue(i) (svalue(&s_object(i))) +#define s_tsvalue(i) (tsvalue(&s_object(i))) #define s_avalue(i) (avalue(&s_object(i))) #define s_fvalue(i) (fvalue(&s_object(i))) #define s_uvalue(i) (uvalue(&s_object(i))) -typedef union -{ - struct {Byte c1; Byte c2;} m; - Word w; -} CodeWord; -#define get_word(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;} - -typedef union -{ - struct {Byte c1; Byte c2; Byte c3; Byte c4;} m; - float f; -} CodeFloat; -#define get_float(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;\ - code.m.c3 = *pc++; code.m.c4 = *pc++;} - -typedef union -{ - struct {Byte c1; Byte c2; Byte c3; Byte c4;} m; - TFunc *tf; -} CodeCode; -#define get_code(code,pc) {code.m.c1 = *pc++; code.m.c2 = *pc++;\ - code.m.c3 = *pc++; code.m.c4 = *pc++;} +#define get_word(code,pc) {memcpy(&code, pc, sizeof(Word)); pc+=sizeof(Word);} +#define get_float(code,pc){memcpy(&code, pc, sizeof(real)); pc+=sizeof(real);} +#define get_code(code,pc) {memcpy(&code, pc, sizeof(TFunc *)); \ + pc+=sizeof(TFunc *);} /* Exported functions */ |