lua/opcode.h

127 lines
2.4 KiB
C
Raw Normal View History

1993-07-28 17:18:00 +04:00
/*
** TeCGraf - PUC-Rio
** $Id: opcode.h,v 3.21 1996/05/28 21:07:32 roberto Exp roberto $
1993-07-28 17:18:00 +04:00
*/
#ifndef opcode_h
#define opcode_h
#include "lua.h"
#include "types.h"
#include "tree.h"
#include "func.h"
1993-07-28 17:18:00 +04:00
#define FIELDS_PER_FLUSH 40
1993-07-28 17:18:00 +04:00
typedef enum
{
PUSHNIL,
PUSH0, PUSH1, PUSH2,
PUSHBYTE,
PUSHWORD,
PUSHFLOAT,
PUSHSTRING,
PUSHFUNCTION,
1993-07-28 17:18:00 +04:00
PUSHLOCAL0, PUSHLOCAL1, PUSHLOCAL2, PUSHLOCAL3, PUSHLOCAL4,
PUSHLOCAL5, PUSHLOCAL6, PUSHLOCAL7, PUSHLOCAL8, PUSHLOCAL9,
PUSHLOCAL,
PUSHGLOBAL,
PUSHINDEXED,
PUSHSELF,
1993-07-28 17:18:00 +04:00
STORELOCAL0, STORELOCAL1, STORELOCAL2, STORELOCAL3, STORELOCAL4,
STORELOCAL5, STORELOCAL6, STORELOCAL7, STORELOCAL8, STORELOCAL9,
STORELOCAL,
STOREGLOBAL,
STOREINDEXED0,
STOREINDEXED,
STORELIST0,
STORELIST,
STORERECORD,
ADJUST0,
1993-07-28 17:18:00 +04:00
ADJUST,
CREATEARRAY,
EQOP,
LTOP,
LEOP,
1994-11-06 18:35:04 +03:00
GTOP,
GEOP,
1993-07-28 17:18:00 +04:00
ADDOP,
SUBOP,
MULTOP,
DIVOP,
POWOP,
1993-07-28 17:18:00 +04:00
CONCOP,
MINUSOP,
NOTOP,
ONTJMP,
ONFJMP,
JMP,
UPJMP,
IFFJMP,
IFFUPJMP,
POP,
CALLFUNC,
RETCODE0,
1993-07-28 17:18:00 +04:00
RETCODE,
SETLINE,
VARARGS
1993-07-28 17:18:00 +04:00
} OpCode;
#define MULT_RET 255
1993-07-28 17:18:00 +04:00
typedef union
{
1996-02-13 20:30:39 +03:00
lua_CFunction f;
real n;
TaggedString *ts;
TFunc *tf;
1993-07-28 17:18:00 +04:00
struct Hash *a;
void *u;
int i;
1993-07-28 17:18:00 +04:00
} Value;
typedef struct Object
{
1994-11-07 18:20:56 +03:00
lua_Type tag;
1993-07-28 17:18:00 +04:00
Value value;
} Object;
/* Macros to access structure members */
#define tag(o) ((o)->tag)
#define nvalue(o) ((o)->value.n)
#define svalue(o) ((o)->value.ts->str)
#define tsvalue(o) ((o)->value.ts)
1993-07-28 17:18:00 +04:00
#define avalue(o) ((o)->value.a)
#define fvalue(o) ((o)->value.f)
#define uvalue(o) ((o)->value.u)
/* Macros to access symbol table */
#define s_object(i) (lua_table[i].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_avalue(i) (avalue(&s_object(i)))
#define s_fvalue(i) (fvalue(&s_object(i)))
#define s_uvalue(i) (uvalue(&s_object(i)))
#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 *);}
1993-07-28 17:18:00 +04:00
/* 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)(Object *));
1994-11-07 19:34:44 +03:00
Object *luaI_Address (lua_Object o);
void luaI_pushobject (Object *o);
1994-11-10 20:36:54 +03:00
void luaI_gcFB (Object *o);
int luaI_dorun (TFunc *tf);
1993-07-28 17:18:00 +04:00
#endif