Mercurial > vba-clojure

     1 /*

     2 ** $Id: lopcodes.c,v 1.37.1.1 2007/12/27 13:02:25 roberto Exp $

     3 ** See Copyright Notice in lua.h

     4 */

     5 

     6 

     7 #define lopcodes_c

     8 #define LUA_CORE

     9 

    10 

    11 #include "lopcodes.h"

    12 

    13 

    14 /* ORDER OP */

    15 

    16 const char *const luaP_opnames[NUM_OPCODES+1] = {

    17   "MOVE",

    18   "LOADK",

    19   "LOADBOOL",

    20   "LOADNIL",

    21   "GETUPVAL",

    22   "GETGLOBAL",

    23   "GETTABLE",

    24   "SETGLOBAL",

    25   "SETUPVAL",

    26   "SETTABLE",

    27   "NEWTABLE",

    28   "SELF",

    29   "ADD",

    30   "SUB",

    31   "MUL",

    32   "DIV",

    33   "MOD",

    34   "POW",

    35   "UNM",

    36   "NOT",

    37   "LEN",

    38   "CONCAT",

    39   "JMP",

    40   "EQ",

    41   "LT",

    42   "LE",

    43   "TEST",

    44   "TESTSET",

    45   "CALL",

    46   "TAILCALL",

    47   "RETURN",

    48   "FORLOOP",

    49   "FORPREP",

    50   "TFORLOOP",

    51   "SETLIST",

    52   "CLOSE",

    53   "CLOSURE",

    54   "VARARG",

    55   NULL

    56 };

    57 

    58 

    59 #define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m))

    60 

    61 const lu_byte luaP_opmodes[NUM_OPCODES] = {

    62 /*       T  A    B       C     mode		   opcode	*/

    63   opmode(0, 1, OpArgR, OpArgN, iABC) 		/* OP_MOVE */

    64  ,opmode(0, 1, OpArgK, OpArgN, iABx)		/* OP_LOADK */

    65  ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_LOADBOOL */

    66  ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_LOADNIL */

    67  ,opmode(0, 1, OpArgU, OpArgN, iABC)		/* OP_GETUPVAL */

    68  ,opmode(0, 1, OpArgK, OpArgN, iABx)		/* OP_GETGLOBAL */

    69  ,opmode(0, 1, OpArgR, OpArgK, iABC)		/* OP_GETTABLE */

    70  ,opmode(0, 0, OpArgK, OpArgN, iABx)		/* OP_SETGLOBAL */

    71  ,opmode(0, 0, OpArgU, OpArgN, iABC)		/* OP_SETUPVAL */

    72  ,opmode(0, 0, OpArgK, OpArgK, iABC)		/* OP_SETTABLE */

    73  ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_NEWTABLE */

    74  ,opmode(0, 1, OpArgR, OpArgK, iABC)		/* OP_SELF */

    75  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_ADD */

    76  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_SUB */

    77  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_MUL */

    78  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_DIV */

    79  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_MOD */

    80  ,opmode(0, 1, OpArgK, OpArgK, iABC)		/* OP_POW */

    81  ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_UNM */

    82  ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_NOT */

    83  ,opmode(0, 1, OpArgR, OpArgN, iABC)		/* OP_LEN */

    84  ,opmode(0, 1, OpArgR, OpArgR, iABC)		/* OP_CONCAT */

    85  ,opmode(0, 0, OpArgR, OpArgN, iAsBx)		/* OP_JMP */

    86  ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_EQ */

    87  ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_LT */

    88  ,opmode(1, 0, OpArgK, OpArgK, iABC)		/* OP_LE */

    89  ,opmode(1, 1, OpArgR, OpArgU, iABC)		/* OP_TEST */

    90  ,opmode(1, 1, OpArgR, OpArgU, iABC)		/* OP_TESTSET */

    91  ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_CALL */

    92  ,opmode(0, 1, OpArgU, OpArgU, iABC)		/* OP_TAILCALL */

    93  ,opmode(0, 0, OpArgU, OpArgN, iABC)		/* OP_RETURN */

    94  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)		/* OP_FORLOOP */

    95  ,opmode(0, 1, OpArgR, OpArgN, iAsBx)		/* OP_FORPREP */

    96  ,opmode(1, 0, OpArgN, OpArgU, iABC)		/* OP_TFORLOOP */

    97  ,opmode(0, 0, OpArgU, OpArgU, iABC)		/* OP_SETLIST */

    98  ,opmode(0, 0, OpArgN, OpArgN, iABC)		/* OP_CLOSE */

    99  ,opmode(0, 1, OpArgU, OpArgN, iABx)		/* OP_CLOSURE */

   100  ,opmode(0, 1, OpArgU, OpArgN, iABC)		/* OP_VARARG */

   101 };

   102
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 20 Jun 2012 21:41:38 -0500
parents	27763b933818
children