C:\JS_KRESREAL\HBP_konverzia\lua\lopcodes.c C:\JS_LUA\lua-5.2.0\src\lopcodes.c
/* /*
** $Id: lopcodes.c,v 1.48 2011/04/19 16:22:13 roberto Exp $ ** $Id: lopcodes.c,v 1.48 2011/04/19 16:22:13 roberto Exp $
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/  */ 
   
   
#define lopcodes_c #define lopcodes_c
#define LUA_CORE #define LUA_CORE
   
   
#include "lopcodes.h" #include "lopcodes.h"
   
   
/* ORDER OP */  /* ORDER OP */ 
   
LUAI_DDEF const char *const luaP_opnames[NUM_OPCODES+1] = { LUAI_DDEF const char *const luaP_opnames[NUM_OPCODES+1] = {
 "MOVE",  "MOVE",
 "LOADK",  "LOADK",
 "LOADKX",  "LOADKX",
 "LOADBOOL",  "LOADBOOL",
 "LOADNIL",  "LOADNIL",
 "GETUPVAL",  "GETUPVAL",
 "GETTABUP",  "GETTABUP",
 "GETTABLE",  "GETTABLE",
 "SETTABUP",  "SETTABUP",
 "SETUPVAL",  "SETUPVAL",
 "SETTABLE",  "SETTABLE",
 "NEWTABLE",  "NEWTABLE",
 "SELF",  "SELF",
 "ADD",  "ADD",
 "SUB",  "SUB",
 "MUL",  "MUL",
 "DIV",  "DIV",
 "MOD",  "MOD",
 "POW",  "POW",
#ifdef GCW_BIT  
 "BITAND",  
 "BITOR",  
 "BITXOR",  
 "BITLSH",  
 "BITRSH",  
 "BITNOT",  
 "LOGAND",  
 "LOGOR",  
 "LOGNOT",  
#endif  
 "UNM",  "UNM",
 "NOT",  "NOT",
 "LEN",  "LEN",
 "CONCAT",  "CONCAT",
 "JMP",  "JMP",
 "EQ",  "EQ",
 "LT",  "LT",
 "LE",  "LE",
 "TEST",  "TEST",
 "TESTSET",  "TESTSET",
 "CALL",  "CALL",
 "TAILCALL",  "TAILCALL",
 "RETURN",  "RETURN",
 "FORLOOP",  "FORLOOP",
 "FORPREP",  "FORPREP",
 "TFORCALL",  "TFORCALL",
 "TFORLOOP",  "TFORLOOP",
 "SETLIST",  "SETLIST",
 "CLOSURE",  "CLOSURE",
 "VARARG",  "VARARG",
 "EXTRAARG",  "EXTRAARG",
 NULL  NULL
}; };
   
   
#define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m)) #define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m))
   
LUAI_DDEF const lu_byte luaP_opmodes[NUM_OPCODES] = { LUAI_DDEF const lu_byte luaP_opmodes[NUM_OPCODES] = {
/*       T  A    B       C     mode         opcode   */  /*       T  A    B       C     mode         opcode   */ 
 opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_MOVE */   opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_MOVE */ 
,opmode(0, 1, OpArgK, OpArgN, iABx)        /* OP_LOADK */  ,opmode(0, 1, OpArgK, OpArgN, iABx)        /* OP_LOADK */ 
,opmode(0, 1, OpArgN, OpArgN, iABx)        /* OP_LOADKX */  ,opmode(0, 1, OpArgN, OpArgN, iABx)        /* OP_LOADKX */ 
,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_LOADBOOL */  ,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_LOADBOOL */ 
,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_LOADNIL */  ,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_LOADNIL */ 
,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_GETUPVAL */  ,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_GETUPVAL */ 
,opmode(0, 1, OpArgU, OpArgK, iABC)        /* OP_GETTABUP */  ,opmode(0, 1, OpArgU, OpArgK, iABC)        /* OP_GETTABUP */ 
,opmode(0, 1, OpArgR, OpArgK, iABC)        /* OP_GETTABLE */  ,opmode(0, 1, OpArgR, OpArgK, iABC)        /* OP_GETTABLE */ 
,opmode(0, 0, OpArgK, OpArgK, iABC)        /* OP_SETTABUP */  ,opmode(0, 0, OpArgK, OpArgK, iABC)        /* OP_SETTABUP */ 
,opmode(0, 0, OpArgU, OpArgN, iABC)        /* OP_SETUPVAL */  ,opmode(0, 0, OpArgU, OpArgN, iABC)        /* OP_SETUPVAL */ 
,opmode(0, 0, OpArgK, OpArgK, iABC)        /* OP_SETTABLE */  ,opmode(0, 0, OpArgK, OpArgK, iABC)        /* OP_SETTABLE */ 
,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_NEWTABLE */  ,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_NEWTABLE */ 
,opmode(0, 1, OpArgR, OpArgK, iABC)        /* OP_SELF */  ,opmode(0, 1, OpArgR, OpArgK, iABC)        /* OP_SELF */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_ADD */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_ADD */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_SUB */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_SUB */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_MUL */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_MUL */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_DIV */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_DIV */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_MOD */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_MOD */ 
,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_POW */  ,opmode(0, 1, OpArgK, OpArgK, iABC)        /* OP_POW */ 
,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_UNM */  ,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_UNM */ 
#ifdef GCW_BIT  
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BITAND */   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BITOR */   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BITXOR */   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BITLSH */   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BITRSH */   
,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_BITNOT */   
   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_LOGAND */   
,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_LOGOR */   
,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_LOGNOT */   
#endif  
,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_NOT */  ,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_NOT */ 
,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_LEN */  ,opmode(0, 1, OpArgR, OpArgN, iABC)        /* OP_LEN */ 
,opmode(0, 1, OpArgR, OpArgR, iABC)        /* OP_CONCAT */  ,opmode(0, 1, OpArgR, OpArgR, iABC)        /* OP_CONCAT */ 
,opmode(0, 0, OpArgR, OpArgN, iAsBx)        /* OP_JMP */  ,opmode(0, 0, OpArgR, OpArgN, iAsBx)        /* OP_JMP */ 
,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_EQ */  ,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_EQ */ 
,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_LT */  ,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_LT */ 
,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_LE */  ,opmode(1, 0, OpArgK, OpArgK, iABC)        /* OP_LE */ 
,opmode(1, 0, OpArgN, OpArgU, iABC)        /* OP_TEST */  ,opmode(1, 0, OpArgN, OpArgU, iABC)        /* OP_TEST */ 
,opmode(1, 1, OpArgR, OpArgU, iABC)        /* OP_TESTSET */  ,opmode(1, 1, OpArgR, OpArgU, iABC)        /* OP_TESTSET */ 
,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_CALL */  ,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_CALL */ 
,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_TAILCALL */  ,opmode(0, 1, OpArgU, OpArgU, iABC)        /* OP_TAILCALL */ 
,opmode(0, 0, OpArgU, OpArgN, iABC)        /* OP_RETURN */  ,opmode(0, 0, OpArgU, OpArgN, iABC)        /* OP_RETURN */ 
,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_FORLOOP */  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_FORLOOP */ 
,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_FORPREP */  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_FORPREP */ 
,opmode(0, 0, OpArgN, OpArgU, iABC)        /* OP_TFORCALL */  ,opmode(0, 0, OpArgN, OpArgU, iABC)        /* OP_TFORCALL */ 
,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_TFORLOOP */  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)        /* OP_TFORLOOP */ 
,opmode(0, 0, OpArgU, OpArgU, iABC)        /* OP_SETLIST */  ,opmode(0, 0, OpArgU, OpArgU, iABC)        /* OP_SETLIST */ 
,opmode(0, 1, OpArgU, OpArgN, iABx)        /* OP_CLOSURE */  ,opmode(0, 1, OpArgU, OpArgN, iABx)        /* OP_CLOSURE */ 
,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_VARARG */  ,opmode(0, 1, OpArgU, OpArgN, iABC)        /* OP_VARARG */ 
,opmode(0, 0, OpArgU, OpArgU, iAx)        /* OP_EXTRAARG */  ,opmode(0, 0, OpArgU, OpArgU, iAx)        /* OP_EXTRAARG */ 
}; };