1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/lua/src/lopcodes.c	Sat Mar 03 10:31:27 2012 -0600
     1.3 @@ -0,0 +1,102 @@
     1.4 +/*
     1.5 +** $Id: lopcodes.c,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $
     1.6 +** See Copyright Notice in lua.h
     1.7 +*/
     1.8 +
     1.9 +
    1.10 +#define lopcodes_c
    1.11 +#define LUA_CORE
    1.12 +
    1.13 +
    1.14 +#include "lopcodes.h"
    1.15 +
    1.16 +
    1.17 +/* ORDER OP */
    1.18 +
    1.19 +const char *const luaP_opnames[NUM_OPCODES+1] = {
    1.20 +  "MOVE",
    1.21 +  "LOADK",
    1.22 +  "LOADBOOL",
    1.23 +  "LOADNIL",
    1.24 +  "GETUPVAL",
    1.25 +  "GETGLOBAL",
    1.26 +  "GETTABLE",
    1.27 +  "SETGLOBAL",
    1.28 +  "SETUPVAL",
    1.29 +  "SETTABLE",
    1.30 +  "NEWTABLE",
    1.31 +  "SELF",
    1.32 +  "ADD",
    1.33 +  "SUB",
    1.34 +  "MUL",
    1.35 +  "DIV",
    1.36 +  "MOD",
    1.37 +  "POW",
    1.38 +  "UNM",
    1.39 +  "NOT",
    1.40 +  "LEN",
    1.41 +  "CONCAT",
    1.42 +  "JMP",
    1.43 +  "EQ",
    1.44 +  "LT",
    1.45 +  "LE",
    1.46 +  "TEST",
    1.47 +  "TESTSET",
    1.48 +  "CALL",
    1.49 +  "TAILCALL",
    1.50 +  "RETURN",
    1.51 +  "FORLOOP",
    1.52 +  "FORPREP",
    1.53 +  "TFORLOOP",
    1.54 +  "SETLIST",
    1.55 +  "CLOSE",
    1.56 +  "CLOSURE",
    1.57 +  "VARARG",
    1.58 +  NULL
    1.59 +};
    1.60 +
    1.61 +
    1.62 +#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m))
    1.63 +
    1.64 +const lu_byte luaP_opmodes[NUM_OPCODES] = {
    1.65 +/*       T  A    B       C     mode		   opcode	*/
    1.66 +  opmode(0, 1, OpArgR, OpArgN, iABC) 		/* OP_MOVE */
    1.67 + ,opmode(0, 1, OpArgK, OpArgN, iABx)		/* OP_LOADK */
    1.68 + ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_LOADBOOL */
    1.69 + ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_LOADNIL */
    1.70 + ,opmode(0, 1, OpArgU, OpArgN, iABC)		/* OP_GETUPVAL */
    1.71 + ,opmode(0, 1, OpArgK, OpArgN, iABx)		/* OP_GETGLOBAL */
    1.72 + ,opmode(0, 1, OpArgR, OpArgK, iABC)		/* OP_GETTABLE */
    1.73 + ,opmode(0, 0, OpArgK, OpArgN, iABx)		/* OP_SETGLOBAL */
    1.74 + ,opmode(0, 0, OpArgU, OpArgN, iABC)		/* OP_SETUPVAL */
    1.75 + ,opmode(0, 0, OpArgK, OpArgK, iABC)		/* OP_SETTABLE */
    1.76 + ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_NEWTABLE */
    1.77 + ,opmode(0, 1, OpArgR, OpArgK, iABC)		/* OP_SELF */
    1.78 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_ADD */
    1.79 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_SUB */
    1.80 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_MUL */
    1.81 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_DIV */
    1.82 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_MOD */
    1.83 + ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_POW */
    1.84 + ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_UNM */
    1.85 + ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_NOT */
    1.86 + ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_LEN */
    1.87 + ,opmode(0, 1, OpArgR, OpArgR, iABC)		/* OP_CONCAT */
    1.88 + ,opmode(0, 0, OpArgR, OpArgN, iAsBx)		/* OP_JMP */
    1.89 + ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_EQ */
    1.90 + ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_LT */
    1.91 + ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_LE */
    1.92 + ,opmode(1, 1, OpArgR, OpArgU, iABC)		/* OP_TEST */
    1.93 + ,opmode(1, 1, OpArgR, OpArgU, iABC)		/* OP_TESTSET */
    1.94 + ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_CALL */
    1.95 + ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_TAILCALL */
    1.96 + ,opmode(0, 0, OpArgU, OpArgN, iABC)		/* OP_RETURN */
    1.97 + ,opmode(0, 1, OpArgR, OpArgN, iAsBx)		/* OP_FORLOOP */
    1.98 + ,opmode(0, 1, OpArgR, OpArgN, iAsBx)		/* OP_FORPREP */
    1.99 + ,opmode(1, 0, OpArgN, OpArgU, iABC)		/* OP_TFORLOOP */
   1.100 + ,opmode(0, 0, OpArgU, OpArgU, iABC)		/* OP_SETLIST */
   1.101 + ,opmode(0, 0, OpArgN, OpArgN, iABC)		/* OP_CLOSE */
   1.102 + ,opmode(0, 1, OpArgU, OpArgN, iABx)		/* OP_CLOSURE */
   1.103 + ,opmode(0, 1, OpArgU, OpArgN, iABC)		/* OP_VARARG */
   1.104 +};
   1.105 +