Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. /*
  2. ** $Id: lopcodes.c,v 1.55.1.1 2017/04/19 17:20:42 roberto Exp $
  3. ** Opcodes for Lua virtual machine
  4. ** See Copyright Notice in lua.h
  5. */
  6.  
  7. #define lopcodes_c
  8. #define LUA_CORE
  9.  
  10. #include "lprefix.h"
  11.  
  12.  
  13. #include <stddef.h>
  14.  
  15. #include "lopcodes.h"
  16.  
  17.  
  18. /* ORDER OP */
  19.  
  20. LUAI_DDEF const char *const luaP_opnames[NUM_OPCODES+1] = {
  21.   "MOVE",
  22.   "LOADK",
  23.   "LOADKX",
  24.   "LOADBOOL",
  25.   "LOADNIL",
  26.   "GETUPVAL",
  27.   "GETTABUP",
  28.   "GETTABLE",
  29.   "SETTABUP",
  30.   "SETUPVAL",
  31.   "SETTABLE",
  32.   "NEWTABLE",
  33.   "SELF",
  34.   "ADD",
  35.   "SUB",
  36.   "MUL",
  37.   "MOD",
  38.   "POW",
  39.   "DIV",
  40.   "IDIV",
  41.   "BAND",
  42.   "BOR",
  43.   "BXOR",
  44.   "SHL",
  45.   "SHR",
  46.   "UNM",
  47.   "BNOT",
  48.   "NOT",
  49.   "LEN",
  50.   "CONCAT",
  51.   "JMP",
  52.   "EQ",
  53.   "LT",
  54.   "LE",
  55.   "TEST",
  56.   "TESTSET",
  57.   "CALL",
  58.   "TAILCALL",
  59.   "RETURN",
  60.   "FORLOOP",
  61.   "FORPREP",
  62.   "TFORCALL",
  63.   "TFORLOOP",
  64.   "SETLIST",
  65.   "CLOSURE",
  66.   "VARARG",
  67.   "EXTRAARG",
  68.   NULL
  69. };
  70.  
  71.  
  72. #define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m))
  73.  
  74. LUAI_DDEF const lu_byte luaP_opmodes[NUM_OPCODES] = {
  75. /*       T  A    B       C     mode                opcode       */
  76.   opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_MOVE */
  77.  ,opmode(0, 1, OpArgK, OpArgN, iABx)            /* OP_LOADK */
  78.  ,opmode(0, 1, OpArgN, OpArgN, iABx)            /* OP_LOADKX */
  79.  ,opmode(0, 1, OpArgU, OpArgU, iABC)            /* OP_LOADBOOL */
  80.  ,opmode(0, 1, OpArgU, OpArgN, iABC)            /* OP_LOADNIL */
  81.  ,opmode(0, 1, OpArgU, OpArgN, iABC)            /* OP_GETUPVAL */
  82.  ,opmode(0, 1, OpArgU, OpArgK, iABC)            /* OP_GETTABUP */
  83.  ,opmode(0, 1, OpArgR, OpArgK, iABC)            /* OP_GETTABLE */
  84.  ,opmode(0, 0, OpArgK, OpArgK, iABC)            /* OP_SETTABUP */
  85.  ,opmode(0, 0, OpArgU, OpArgN, iABC)            /* OP_SETUPVAL */
  86.  ,opmode(0, 0, OpArgK, OpArgK, iABC)            /* OP_SETTABLE */
  87.  ,opmode(0, 1, OpArgU, OpArgU, iABC)            /* OP_NEWTABLE */
  88.  ,opmode(0, 1, OpArgR, OpArgK, iABC)            /* OP_SELF */
  89.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_ADD */
  90.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_SUB */
  91.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_MUL */
  92.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_MOD */
  93.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_POW */
  94.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_DIV */
  95.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_IDIV */
  96.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BAND */
  97.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BOR */
  98.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_BXOR */
  99.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_SHL */
  100.  ,opmode(0, 1, OpArgK, OpArgK, iABC)            /* OP_SHR */
  101.  ,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_UNM */
  102.  ,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_BNOT */
  103.  ,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_NOT */
  104.  ,opmode(0, 1, OpArgR, OpArgN, iABC)            /* OP_LEN */
  105.  ,opmode(0, 1, OpArgR, OpArgR, iABC)            /* OP_CONCAT */
  106.  ,opmode(0, 0, OpArgR, OpArgN, iAsBx)           /* OP_JMP */
  107.  ,opmode(1, 0, OpArgK, OpArgK, iABC)            /* OP_EQ */
  108.  ,opmode(1, 0, OpArgK, OpArgK, iABC)            /* OP_LT */
  109.  ,opmode(1, 0, OpArgK, OpArgK, iABC)            /* OP_LE */
  110.  ,opmode(1, 0, OpArgN, OpArgU, iABC)            /* OP_TEST */
  111.  ,opmode(1, 1, OpArgR, OpArgU, iABC)            /* OP_TESTSET */
  112.  ,opmode(0, 1, OpArgU, OpArgU, iABC)            /* OP_CALL */
  113.  ,opmode(0, 1, OpArgU, OpArgU, iABC)            /* OP_TAILCALL */
  114.  ,opmode(0, 0, OpArgU, OpArgN, iABC)            /* OP_RETURN */
  115.  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)           /* OP_FORLOOP */
  116.  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)           /* OP_FORPREP */
  117.  ,opmode(0, 0, OpArgN, OpArgU, iABC)            /* OP_TFORCALL */
  118.  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)           /* OP_TFORLOOP */
  119.  ,opmode(0, 0, OpArgU, OpArgU, iABC)            /* OP_SETLIST */
  120.  ,opmode(0, 1, OpArgU, OpArgN, iABx)            /* OP_CLOSURE */
  121.  ,opmode(0, 1, OpArgU, OpArgN, iABC)            /* OP_VARARG */
  122.  ,opmode(0, 0, OpArgU, OpArgU, iAx)             /* OP_EXTRAARG */
  123. };
  124.  
  125.