From d985dc0629c2a10371b345d1ce3e4404bb011ad9 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Tue, 16 Sep 1997 16:25:59 -0300 Subject: Opcodes for Lua virtual machine --- opcode.h | 167 --------------------------------------------------------------- 1 file changed, 167 deletions(-) delete mode 100644 opcode.h (limited to 'opcode.h') diff --git a/opcode.h b/opcode.h deleted file mode 100644 index 406ff971..00000000 --- a/opcode.h +++ /dev/null @@ -1,167 +0,0 @@ -/* -** TeCGraf - PUC-Rio -** $Id: opcode.h,v 3.37 1997/07/30 22:00:50 roberto Exp roberto $ -*/ - -#ifndef opcode_h -#define opcode_h - -#include "lua.h" -#include "types.h" -#include "tree.h" -#include "func.h" - - -#define FIELDS_PER_FLUSH 40 - -/* -* WARNING: if you change the order of this enumeration, -* grep "ORDER LUA_T" -*/ -typedef enum -{ - LUA_T_NIL = -9, - LUA_T_NUMBER = -8, - LUA_T_STRING = -7, - LUA_T_ARRAY = -6, /* array==table */ - LUA_T_FUNCTION = -5, - LUA_T_CFUNCTION= -4, - LUA_T_MARK = -3, - LUA_T_CMARK = -2, - LUA_T_LINE = -1, - LUA_T_USERDATA = 0 -} lua_Type; - -#define NUM_TYPES 10 - - -extern char *luaI_typenames[]; - -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 */ -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] */ -PUSHINDEXED,/* i t t[i] */ -PUSHSELF,/* w t t t[CNST[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,/* b x - LOC[b]=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,/* b v_b...v_1 t - t[i]=v_i */ -STORELIST,/* b c v_b...v_1 t - t[i+c*FPF]=v_i */ -STORERECORD,/* b - w_b...w_1 v_b...v_1 t - t[CNST[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 (xy)? 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 */ -CALLFUNC,/* b c v_b...v_1 f r_c...r_1 f(v1,...,v_b) */ -RETCODE0, -RETCODE,/* b - - */ -SETLINE,/* w - - LINE=w */ -VARARGS,/* b v_b...v_1 {v_1...v_b;n=b} */ -STOREMAP,/* b v_b k_b ...v_1 k_1 t - t[k_i]=v_i */ -PUSHCONSTANTB,/*b - CNST[b] */ -PUSHCONSTANT,/* w - CNST[w] */ -ENDCODE = 127 -} OpCode; - - -#define MULT_RET 255 - - -typedef union -{ - lua_CFunction f; - real n; - TaggedString *ts; - TFunc *tf; - struct Hash *a; - int i; -} Value; - -typedef struct TObject -{ - lua_Type ttype; - Value value; -} TObject; - - -/* Macros to access structure members */ -#define ttype(o) ((o)->ttype) -#define nvalue(o) ((o)->value.n) -#define svalue(o) ((o)->value.ts->str) -#define tsvalue(o) ((o)->value.ts) -#define avalue(o) ((o)->value.a) -#define fvalue(o) ((o)->value.f) - -/* Macros to access symbol table */ -#define s_object(i) (lua_table[i].object) -#define s_ttype(i) (ttype(&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))) - - -/* Exported functions */ -void lua_parse (TFunc *tf); /* from "lua.stx" module */ -void luaI_codedebugline (int line); /* from "lua.stx" module */ -void lua_travstack (int (*fn)(TObject *)); -TObject *luaI_Address (lua_Object o); -void luaI_pushobject (TObject *o); -void luaI_gcIM (TObject *o); -int luaI_dorun (TFunc *tf); -int lua_domain (void); - -extern TObject luaI_errorim; - -#endif -- cgit v1.2.3-55-g6feb