<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
<title>rpm: lua/lopcodes.h Source File</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
</head><body>
<!-- Generated by Doxygen 1.4.7 -->
<div class="tabs">
<ul>
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="modules.html"><span>Modules</span></a></li>
<li><a href="annotated.html"><span>Data Structures</span></a></li>
<li id="current"><a href="files.html"><span>Files</span></a></li>
<li><a href="pages.html"><span>Related Pages</span></a></li>
</ul></div>
<div class="tabs">
<ul>
<li><a href="files.html"><span>File List</span></a></li>
<li><a href="globals.html"><span>Globals</span></a></li>
</ul></div>
<h1>lua/lopcodes.h</h1><a href="lopcodes_8h.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span>
<a name="l00002"></a>00002 <span class="comment">** $Id: lopcodes.h,v 1.2 2004/03/23 05:09:14 jbj Exp $</span>
<a name="l00003"></a>00003 <span class="comment">** Opcodes for Lua virtual machine</span>
<a name="l00004"></a>00004 <span class="comment">** See Copyright Notice in lua.h</span>
<a name="l00005"></a>00005 <span class="comment">*/</span>
<a name="l00006"></a>00006
<a name="l00007"></a>00007 <span class="preprocessor">#ifndef lopcodes_h</span>
<a name="l00008"></a>00008 <span class="preprocessor"></span><span class="preprocessor">#define lopcodes_h</span>
<a name="l00009"></a>00009 <span class="preprocessor"></span>
<a name="l00010"></a>00010 <span class="preprocessor">#include "<a class="code" href="llimits_8h.html">llimits.h</a>"</span>
<a name="l00011"></a>00011
<a name="l00012"></a>00012
<a name="l00013"></a>00013 <span class="comment">/*===========================================================================</span>
<a name="l00014"></a>00014 <span class="comment"> We assume that instructions are unsigned numbers.</span>
<a name="l00015"></a>00015 <span class="comment"> All instructions have an opcode in the first 6 bits.</span>
<a name="l00016"></a>00016 <span class="comment"> Instructions can have the following fields:</span>
<a name="l00017"></a>00017 <span class="comment"> `A' : 8 bits</span>
<a name="l00018"></a>00018 <span class="comment"> `B' : 9 bits</span>
<a name="l00019"></a>00019 <span class="comment"> `C' : 9 bits</span>
<a name="l00020"></a>00020 <span class="comment"> `Bx' : 18 bits (`B' and `C' together)</span>
<a name="l00021"></a>00021 <span class="comment"> `sBx' : signed Bx</span>
<a name="l00022"></a>00022 <span class="comment"></span>
<a name="l00023"></a>00023 <span class="comment"> A signed argument is represented in excess K; that is, the number</span>
<a name="l00024"></a>00024 <span class="comment"> value is the unsigned value minus K. K is exactly the maximum value</span>
<a name="l00025"></a>00025 <span class="comment"> for that argument (so that -max is represented by 0, and +max is</span>
<a name="l00026"></a>00026 <span class="comment"> represented by 2*max), which is half the maximum for the corresponding</span>
<a name="l00027"></a>00027 <span class="comment"> unsigned argument.</span>
<a name="l00028"></a>00028 <span class="comment">===========================================================================*/</span>
<a name="l00029"></a>00029
<a name="l00030"></a>00030
<a name="l00031"></a><a class="code" href="lopcodes_8h.html#56752d1aeb4bd4940e632396072d68af">00031</a> <span class="keyword">enum</span> <a class="code" href="lopcodes_8h.html#56752d1aeb4bd4940e632396072d68af">OpMode</a> {<a class="code" href="lopcodes_8h.html#56752d1aeb4bd4940e632396072d68af5032b5bab05a3312f6236ad8a6053cf3">iABC</a>, <a class="code" href="lopcodes_8h.html#56752d1aeb4bd4940e632396072d68afe162f330f7a1e7581cdbbb4af60dc8ea">iABx</a>, <a class="code" href="lopcodes_8h.html#56752d1aeb4bd4940e632396072d68af5db94456d16691b254a6b2fc7b473e55">iAsBx</a>}; <span class="comment">/* basic instruction format */</span>
<a name="l00032"></a>00032
<a name="l00033"></a>00033
<a name="l00034"></a>00034 <span class="comment">/*</span>
<a name="l00035"></a>00035 <span class="comment">** size and position of opcode arguments.</span>
<a name="l00036"></a>00036 <span class="comment">*/</span>
<a name="l00037"></a><a class="code" href="lopcodes_8h.html#5f42703bf77b09689626ca8cf3fc5fc1">00037</a> <span class="preprocessor">#define SIZE_C 9</span>
<a name="l00038"></a><a class="code" href="lopcodes_8h.html#c8795820709810bf0baf1660341cacc2">00038</a> <span class="preprocessor"></span><span class="preprocessor">#define SIZE_B 9</span>
<a name="l00039"></a><a class="code" href="lopcodes_8h.html#4b81cf762841df8820b6077b66c0c619">00039</a> <span class="preprocessor"></span><span class="preprocessor">#define SIZE_Bx (SIZE_C + SIZE_B)</span>
<a name="l00040"></a><a class="code" href="lopcodes_8h.html#205e8f662c5b2496cb7d9e7aa37cda90">00040</a> <span class="preprocessor"></span><span class="preprocessor">#define SIZE_A 8</span>
<a name="l00041"></a>00041 <span class="preprocessor"></span>
<a name="l00042"></a><a class="code" href="lopcodes_8h.html#4c1d995d13200130d713c6dc5e223c13">00042</a> <span class="preprocessor">#define SIZE_OP 6</span>
<a name="l00043"></a>00043 <span class="preprocessor"></span>
<a name="l00044"></a><a class="code" href="lopcodes_8h.html#b67ab8adf1f91e2c7e2b30b5345d214d">00044</a> <span class="preprocessor">#define POS_C SIZE_OP</span>
<a name="l00045"></a><a class="code" href="lopcodes_8h.html#c71a05d32f83f3f83b05fa95bad8c953">00045</a> <span class="preprocessor"></span><span class="preprocessor">#define POS_B (POS_C + SIZE_C)</span>
<a name="l00046"></a><a class="code" href="lopcodes_8h.html#3626b235301aa4d50a1eddfb650ddd87">00046</a> <span class="preprocessor"></span><span class="preprocessor">#define POS_Bx POS_C</span>
<a name="l00047"></a><a class="code" href="lopcodes_8h.html#9a088c55af7f419a19a3228fd5048ef7">00047</a> <span class="preprocessor"></span><span class="preprocessor">#define POS_A (POS_B + SIZE_B)</span>
<a name="l00048"></a>00048 <span class="preprocessor"></span>
<a name="l00049"></a>00049
<a name="l00050"></a>00050 <span class="comment">/*</span>
<a name="l00051"></a>00051 <span class="comment">** limits for opcode arguments.</span>
<a name="l00052"></a>00052 <span class="comment">** we use (signed) int to manipulate most arguments,</span>
<a name="l00053"></a>00053 <span class="comment">** so they must fit in BITS_INT-1 bits (-1 for sign)</span>
<a name="l00054"></a>00054 <span class="comment">*/</span>
<a name="l00055"></a>00055 <span class="preprocessor">#if SIZE_Bx < BITS_INT-1</span>
<a name="l00056"></a>00056 <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_Bx ((1<<SIZE_Bx)-1)</span>
<a name="l00057"></a>00057 <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_sBx (MAXARG_Bx>>1) </span><span class="comment">/* `sBx' is signed */</span>
<a name="l00058"></a>00058 <span class="preprocessor">#else</span>
<a name="l00059"></a><a class="code" href="lopcodes_8h.html#ebbf650de6e9cbec539bfabcb9ae50c6">00059</a> <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_Bx MAX_INT</span>
<a name="l00060"></a><a class="code" href="lopcodes_8h.html#076bbd704fe8773693851f82d82206a6">00060</a> <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_sBx MAX_INT</span>
<a name="l00061"></a>00061 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00062"></a>00062 <span class="preprocessor"></span>
<a name="l00063"></a>00063
<a name="l00064"></a><a class="code" href="lopcodes_8h.html#b3c4feecc8cd0add12e881e26bbb3b15">00064</a> <span class="preprocessor">#define MAXARG_A ((1<<SIZE_A)-1)</span>
<a name="l00065"></a><a class="code" href="lopcodes_8h.html#e5132046fa2196de46214613a36235b2">00065</a> <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_B ((1<<SIZE_B)-1)</span>
<a name="l00066"></a><a class="code" href="lopcodes_8h.html#15a7daf14e4640990519e4e7f627900f">00066</a> <span class="preprocessor"></span><span class="preprocessor">#define MAXARG_C ((1<<SIZE_C)-1)</span>
<a name="l00067"></a>00067 <span class="preprocessor"></span>
<a name="l00068"></a>00068
<a name="l00069"></a>00069 <span class="comment">/* creates a mask with `n' 1 bits at position `p' */</span>
<a name="l00070"></a><a class="code" href="lopcodes_8h.html#edd5e7a7ce381d9be03d198dce7db53f">00070</a> <span class="preprocessor">#define MASK1(n,p) ((~((~(Instruction)0)<<n))<<p)</span>
<a name="l00071"></a>00071 <span class="preprocessor"></span>
<a name="l00072"></a>00072 <span class="comment">/* creates a mask with `n' 0 bits at position `p' */</span>
<a name="l00073"></a><a class="code" href="lopcodes_8h.html#c38be540eada841367170e3764e93748">00073</a> <span class="preprocessor">#define MASK0(n,p) (~MASK1(n,p))</span>
<a name="l00074"></a>00074 <span class="preprocessor"></span>
<a name="l00075"></a>00075 <span class="comment">/*</span>
<a name="l00076"></a>00076 <span class="comment">** the following macros help to manipulate instructions</span>
<a name="l00077"></a>00077 <span class="comment">*/</span>
<a name="l00078"></a>00078
<a name="l00079"></a><a class="code" href="lopcodes_8h.html#aa146179c3677b790c5681dcd82f0acc">00079</a> <span class="preprocessor">#define GET_OPCODE(i) (cast(OpCode, (i)&MASK1(SIZE_OP,0)))</span>
<a name="l00080"></a><a class="code" href="lopcodes_8h.html#9ae2b84a40beacf053969ff426aae06f">00080</a> <span class="preprocessor"></span><span class="preprocessor">#define SET_OPCODE(i,o) ((i) = (((i)&MASK0(SIZE_OP,0)) | cast(Instruction, o)))</span>
<a name="l00081"></a>00081 <span class="preprocessor"></span>
<a name="l00082"></a><a class="code" href="lopcodes_8h.html#1d504abc1e2246548f89977210dce0b9">00082</a> <span class="preprocessor">#define GETARG_A(i) (cast(int, (i)>>POS_A))</span>
<a name="l00083"></a><a class="code" href="lopcodes_8h.html#df0cd27fa4f1e783081e0faf549820d9">00083</a> <span class="preprocessor"></span><span class="preprocessor">#define SETARG_A(i,u) ((i) = (((i)&MASK0(SIZE_A,POS_A)) | \</span>
<a name="l00084"></a>00084 <span class="preprocessor"> ((cast(Instruction, u)<<POS_A)&MASK1(SIZE_A,POS_A))))</span>
<a name="l00085"></a>00085 <span class="preprocessor"></span>
<a name="l00086"></a><a class="code" href="lopcodes_8h.html#7a343159ef7669a438c2097b839b2b13">00086</a> <span class="preprocessor">#define GETARG_B(i) (cast(int, ((i)>>POS_B) & MASK1(SIZE_B,0)))</span>
<a name="l00087"></a><a class="code" href="lopcodes_8h.html#cc45c7c63d25b6b580ce9dfab5a15ccf">00087</a> <span class="preprocessor"></span><span class="preprocessor">#define SETARG_B(i,b) ((i) = (((i)&MASK0(SIZE_B,POS_B)) | \</span>
<a name="l00088"></a>00088 <span class="preprocessor"> ((cast(Instruction, b)<<POS_B)&MASK1(SIZE_B,POS_B))))</span>
<a name="l00089"></a>00089 <span class="preprocessor"></span>
<a name="l00090"></a><a class="code" href="lopcodes_8h.html#f96cb84f2685fda7f36d3d099dba6a44">00090</a> <span class="preprocessor">#define GETARG_C(i) (cast(int, ((i)>>POS_C) & MASK1(SIZE_C,0)))</span>
<a name="l00091"></a><a class="code" href="lopcodes_8h.html#c570d939f73623edb64b56f30311809e">00091</a> <span class="preprocessor"></span><span class="preprocessor">#define SETARG_C(i,b) ((i) = (((i)&MASK0(SIZE_C,POS_C)) | \</span>
<a name="l00092"></a>00092 <span class="preprocessor"> ((cast(Instruction, b)<<POS_C)&MASK1(SIZE_C,POS_C))))</span>
<a name="l00093"></a>00093 <span class="preprocessor"></span>
<a name="l00094"></a><a class="code" href="lopcodes_8h.html#cf8d228275fd2789dcf5f019bbabc019">00094</a> <span class="preprocessor">#define GETARG_Bx(i) (cast(int, ((i)>>POS_Bx) & MASK1(SIZE_Bx,0)))</span>
<a name="l00095"></a><a class="code" href="lopcodes_8h.html#67d1d929c3fe9455f6b017f0fd9b00ed">00095</a> <span class="preprocessor"></span><span class="preprocessor">#define SETARG_Bx(i,b) ((i) = (((i)&MASK0(SIZE_Bx,POS_Bx)) | \</span>
<a name="l00096"></a>00096 <span class="preprocessor"> ((cast(Instruction, b)<<POS_Bx)&MASK1(SIZE_Bx,POS_Bx))))</span>
<a name="l00097"></a>00097 <span class="preprocessor"></span>
<a name="l00098"></a><a class="code" href="lopcodes_8h.html#1f61a823709ac7847e481290a596c480">00098</a> <span class="preprocessor">#define GETARG_sBx(i) (GETARG_Bx(i)-MAXARG_sBx)</span>
<a name="l00099"></a><a class="code" href="lopcodes_8h.html#d28b4bc013c6ddae165ac998ebe321c7">00099</a> <span class="preprocessor"></span><span class="preprocessor">#define SETARG_sBx(i,b) SETARG_Bx((i),cast(unsigned int, (b)+MAXARG_sBx))</span>
<a name="l00100"></a>00100 <span class="preprocessor"></span>
<a name="l00101"></a>00101
<a name="l00102"></a><a class="code" href="lopcodes_8h.html#847467d29d9430a3a869e99952350b2d">00102</a> <span class="preprocessor">#define CREATE_ABC(o,a,b,c) (cast(Instruction, o) \</span>
<a name="l00103"></a>00103 <span class="preprocessor"> | (cast(Instruction, a)<<POS_A) \</span>
<a name="l00104"></a>00104 <span class="preprocessor"> | (cast(Instruction, b)<<POS_B) \</span>
<a name="l00105"></a>00105 <span class="preprocessor"> | (cast(Instruction, c)<<POS_C))</span>
<a name="l00106"></a>00106 <span class="preprocessor"></span>
<a name="l00107"></a><a class="code" href="lopcodes_8h.html#46bb00b89420c78407eb45a3bc98b50d">00107</a> <span class="preprocessor">#define CREATE_ABx(o,a,bc) (cast(Instruction, o) \</span>
<a name="l00108"></a>00108 <span class="preprocessor"> | (cast(Instruction, a)<<POS_A) \</span>
<a name="l00109"></a>00109 <span class="preprocessor"> | (cast(Instruction, bc)<<POS_Bx))</span>
<a name="l00110"></a>00110 <span class="preprocessor"></span>
<a name="l00111"></a>00111
<a name="l00112"></a>00112
<a name="l00113"></a>00113
<a name="l00114"></a>00114 <span class="comment">/*</span>
<a name="l00115"></a>00115 <span class="comment">** invalid register that fits in 8 bits</span>
<a name="l00116"></a>00116 <span class="comment">*/</span>
<a name="l00117"></a><a class="code" href="lopcodes_8h.html#6552ce4b3bba3b1a820dc0adaf85974a">00117</a> <span class="preprocessor">#define NO_REG MAXARG_A</span>
<a name="l00118"></a>00118 <span class="preprocessor"></span>
<a name="l00119"></a>00119
<a name="l00120"></a>00120 <span class="comment">/*</span>
<a name="l00121"></a>00121 <span class="comment">** R(x) - register</span>
<a name="l00122"></a>00122 <span class="comment">** Kst(x) - constant (in constant table)</span>
<a name="l00123"></a>00123 <span class="comment">** RK(x) == if x < MAXSTACK then R(x) else Kst(x-MAXSTACK)</span>
<a name="l00124"></a>00124 <span class="comment">*/</span>
<a name="l00125"></a>00125
<a name="l00126"></a>00126
<a name="l00127"></a>00127 <span class="comment">/*</span>
<a name="l00128"></a>00128 <span class="comment">** grep "ORDER OP" if you change these enums</span>
<a name="l00129"></a>00129 <span class="comment">*/</span>
<a name="l00130"></a>00130
<a name="l00131"></a><a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7">00131</a> <span class="keyword">typedef</span> <span class="keyword">enum</span> {
<a name="l00132"></a>00132 <span class="comment">/*----------------------------------------------------------------------</span>
<a name="l00133"></a>00133 <span class="comment">name args description</span>
<a name="l00134"></a>00134 <span class="comment">------------------------------------------------------------------------*/</span>
<a name="l00135"></a>00135 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7ddf83bbc02b6a88d325135c880d12184">OP_MOVE</a>,<span class="comment">/* A B R(A) := R(B) */</span>
<a name="l00136"></a>00136 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7b34a8eaf6d32d3c41810653d9eb99c1a">OP_LOADK</a>,<span class="comment">/* A Bx R(A) := Kst(Bx) */</span>
<a name="l00137"></a>00137 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7f5f66d1583580293a60f96a26770e5ba">OP_LOADBOOL</a>,<span class="comment">/* A B C R(A) := (Bool)B; if (C) PC++ */</span>
<a name="l00138"></a>00138 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea75c399a98a26c923cdae3971b5e5b6432">OP_LOADNIL</a>,<span class="comment">/* A B R(A) := ... := R(B) := nil */</span>
<a name="l00139"></a>00139 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7b48573533495922f053a7d1c9b0d00b4">OP_GETUPVAL</a>,<span class="comment">/* A B R(A) := UpValue[B] */</span>
<a name="l00140"></a>00140
<a name="l00141"></a>00141 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7729612e249653e5ab46b6be3bb376910">OP_GETGLOBAL</a>,<span class="comment">/* A Bx R(A) := Gbl[Kst(Bx)] */</span>
<a name="l00142"></a>00142 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7b1ec2a36c59db7612249cc31e382fdd9">OP_GETTABLE</a>,<span class="comment">/* A B C R(A) := R(B)[RK(C)] */</span>
<a name="l00143"></a>00143
<a name="l00144"></a>00144 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7f61bd9bc4032eb3716946058ecd96f7a">OP_SETGLOBAL</a>,<span class="comment">/* A Bx Gbl[Kst(Bx)] := R(A) */</span>
<a name="l00145"></a>00145 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea747df60373847890b47b447c870aea678">OP_SETUPVAL</a>,<span class="comment">/* A B UpValue[B] := R(A) */</span>
<a name="l00146"></a>00146 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea734315d7408f31b006bf41c9e9c2d736e">OP_SETTABLE</a>,<span class="comment">/* A B C R(A)[RK(B)] := RK(C) */</span>
<a name="l00147"></a>00147
<a name="l00148"></a>00148 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7f4ae9eb9a3c88596112a1d99d0c66280">OP_NEWTABLE</a>,<span class="comment">/* A B C R(A) := {} (size = B,C) */</span>
<a name="l00149"></a>00149
<a name="l00150"></a>00150 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea764bea18253f9e73c4c5fcfa6b0d5abd2">OP_SELF</a>,<span class="comment">/* A B C R(A+1) := R(B); R(A) := R(B)[RK(C)] */</span>
<a name="l00151"></a>00151
<a name="l00152"></a>00152 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea796186829480e5b34b1373288e956b1c8">OP_ADD</a>,<span class="comment">/* A B C R(A) := RK(B) + RK(C) */</span>
<a name="l00153"></a>00153 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea76c224b456bd394d4d8bad0631ca8e2b7">OP_SUB</a>,<span class="comment">/* A B C R(A) := RK(B) - RK(C) */</span>
<a name="l00154"></a>00154 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7a0e08a6f94350f03d29e4a55d543ba2f">OP_MUL</a>,<span class="comment">/* A B C R(A) := RK(B) * RK(C) */</span>
<a name="l00155"></a>00155 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7719aeab2140dd5f575d1559b95bf74e1">OP_DIV</a>,<span class="comment">/* A B C R(A) := RK(B) / RK(C) */</span>
<a name="l00156"></a>00156 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea735127684be890cfd81d556dc84d5f9db">OP_POW</a>,<span class="comment">/* A B C R(A) := RK(B) ^ RK(C) */</span>
<a name="l00157"></a>00157 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7e3fd0932f8be8e5e810d731fd60ab8ef">OP_UNM</a>,<span class="comment">/* A B R(A) := -R(B) */</span>
<a name="l00158"></a>00158 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea736a6b73cc4823f54891a013e2cc760d1">OP_NOT</a>,<span class="comment">/* A B R(A) := not R(B) */</span>
<a name="l00159"></a>00159
<a name="l00160"></a>00160 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea728a7da14b1413b441cf2a5d433b43a51">OP_CONCAT</a>,<span class="comment">/* A B C R(A) := R(B).. ... ..R(C) */</span>
<a name="l00161"></a>00161
<a name="l00162"></a>00162 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7fd679fab86e6a91d22c91734e287639b">OP_JMP</a>,<span class="comment">/* sBx PC += sBx */</span>
<a name="l00163"></a>00163
<a name="l00164"></a>00164 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea71634898deb6e4d1bcb15416034c641c5">OP_EQ</a>,<span class="comment">/* A B C if ((RK(B) == RK(C)) ~= A) then pc++ */</span>
<a name="l00165"></a>00165 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea77d5ed006824d331041dad8486e52df50">OP_LT</a>,<span class="comment">/* A B C if ((RK(B) < RK(C)) ~= A) then pc++ */</span>
<a name="l00166"></a>00166 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7cef6e71b662db063ff532d89500bb0c0">OP_LE</a>,<span class="comment">/* A B C if ((RK(B) <= RK(C)) ~= A) then pc++ */</span>
<a name="l00167"></a>00167
<a name="l00168"></a>00168 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea78952e66300f2660060e38c67ccd21c9d">OP_TEST</a>,<span class="comment">/* A B C if (R(B) <=> C) then R(A) := R(B) else pc++ */</span>
<a name="l00169"></a>00169
<a name="l00170"></a>00170 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7098bbeea13096667b102f7fd90cbe38f">OP_CALL</a>,<span class="comment">/* A B C R(A), ... ,R(A+C-2) := R(A)(R(A+1), ... ,R(A+B-1)) */</span>
<a name="l00171"></a>00171 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7ff2c07ebfd82aa22cc247e9855a16069">OP_TAILCALL</a>,<span class="comment">/* A B C return R(A)(R(A+1), ... ,R(A+B-1)) */</span>
<a name="l00172"></a>00172 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7d436c18b194473f5ec64c28b774e41b3">OP_RETURN</a>,<span class="comment">/* A B return R(A), ... ,R(A+B-2) (see note) */</span>
<a name="l00173"></a>00173
<a name="l00174"></a>00174 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7a01470a2fc70a3f2dbd20c7c8f270802">OP_FORLOOP</a>,<span class="comment">/* A sBx R(A)+=R(A+2); if R(A) <?= R(A+1) then PC+= sBx */</span>
<a name="l00175"></a>00175
<a name="l00176"></a>00176 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea77dabccd7671c8ff374cb4502a6edb9c0">OP_TFORLOOP</a>,<span class="comment">/* A C R(A+2), ... ,R(A+2+C) := R(A)(R(A+1), R(A+2)); </span>
<a name="l00177"></a>00177 <span class="comment"> if R(A+2) ~= nil then pc++ */</span>
<a name="l00178"></a>00178 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7afeb9e3e631d6f6c1700bf77134d425e">OP_TFORPREP</a>,<span class="comment">/* A sBx if type(R(A)) == table then R(A+1):=R(A), R(A):=next;</span>
<a name="l00179"></a>00179 <span class="comment"> PC += sBx */</span>
<a name="l00180"></a>00180
<a name="l00181"></a>00181 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea701618d8295953fd4ab2ef721b2051718">OP_SETLIST</a>,<span class="comment">/* A Bx R(A)[Bx-Bx%FPF+i] := R(A+i), 1 <= i <= Bx%FPF+1 */</span>
<a name="l00182"></a>00182 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea797b1fd1baac18ed1837cc681f02ac711">OP_SETLISTO</a>,<span class="comment">/* A Bx */</span>
<a name="l00183"></a>00183
<a name="l00184"></a>00184 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea79e771dc35104ec1246adba881d27e372">OP_CLOSE</a>,<span class="comment">/* A close all variables in the stack up to (>=) R(A)*/</span>
<a name="l00185"></a>00185 <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7407a76cd8c503b0f4dc14603687a77a2">OP_CLOSURE</a><span class="comment">/* A Bx R(A) := closure(KPROTO[Bx], R(A), ... ,R(A+n)) */</span>
<a name="l00186"></a>00186 } <a class="code" href="lopcodes_8h.html#beb7dfb0e9e2b3114e240a405d046ea7">OpCode</a>;
<a name="l00187"></a>00187
<a name="l00188"></a>00188
<a name="l00189"></a><a class="code" href="lopcodes_8h.html#1fb469ba81540d3314cfbe37c675ba20">00189</a> <span class="preprocessor">#define NUM_OPCODES (cast(int, OP_CLOSURE+1))</span>
<a name="l00190"></a>00190 <span class="preprocessor"></span>
<a name="l00191"></a>00191
<a name="l00192"></a>00192
<a name="l00193"></a>00193 <span class="comment">/*===========================================================================</span>
<a name="l00194"></a>00194 <span class="comment"> Notes:</span>
<a name="l00195"></a>00195 <span class="comment"> (1) In OP_CALL, if (B == 0) then B = top. C is the number of returns - 1,</span>
<a name="l00196"></a>00196 <span class="comment"> and can be 0: OP_CALL then sets `top' to last_result+1, so</span>
<a name="l00197"></a>00197 <span class="comment"> next open instruction (OP_CALL, OP_RETURN, OP_SETLIST) may use `top'.</span>
<a name="l00198"></a>00198 <span class="comment"></span>
<a name="l00199"></a>00199 <span class="comment"> (2) In OP_RETURN, if (B == 0) then return up to `top'</span>
<a name="l00200"></a>00200 <span class="comment"></span>
<a name="l00201"></a>00201 <span class="comment"> (3) For comparisons, B specifies what conditions the test should accept.</span>
<a name="l00202"></a>00202 <span class="comment"></span>
<a name="l00203"></a>00203 <span class="comment"> (4) All `skips' (pc++) assume that next instruction is a jump</span>
<a name="l00204"></a>00204 <span class="comment">===========================================================================*/</span>
<a name="l00205"></a>00205
<a name="l00206"></a>00206
<a name="l00207"></a>00207 <span class="comment">/*</span>
<a name="l00208"></a>00208 <span class="comment">** masks for instruction properties</span>
<a name="l00209"></a>00209 <span class="comment">*/</span>
<a name="l00210"></a><a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398f">00210</a> <span class="keyword">enum</span> <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398f">OpModeMask</a> {
<a name="l00211"></a>00211 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398f3e04492ced915c1c69dd893935959a73">OpModeBreg</a> = 2, <span class="comment">/* B is a register */</span>
<a name="l00212"></a>00212 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398fdf73f83761866f18afc9cf1eecd1d658">OpModeBrk</a>, <span class="comment">/* B is a register/constant */</span>
<a name="l00213"></a>00213 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398fa0b5c750a00892fcb63a4be1566eba33">OpModeCrk</a>, <span class="comment">/* C is a register/constant */</span>
<a name="l00214"></a>00214 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398f563c5a0ecdff73ec9b89ba7990f327fe">OpModesetA</a>, <span class="comment">/* instruction set register A */</span>
<a name="l00215"></a>00215 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398f2c5d4b90a76a46d2dde7d34baa9f8e1d">OpModeK</a>, <span class="comment">/* Bx is a constant */</span>
<a name="l00216"></a>00216 <a class="code" href="lopcodes_8h.html#b2ec8e82b0a636f0c1e06391f7e5398ff555431b5e198b8930b9f3504f7b7c36">OpModeT</a> <span class="comment">/* operator is a test */</span>
<a name="l00217"></a>00217
<a name="l00218"></a>00218 };
<a name="l00219"></a>00219
<a name="l00220"></a>00220
<a name="l00221"></a>00221 <span class="comment">/*@unchecked@*/</span>
<a name="l00222"></a>00222 <span class="keyword">extern</span> <span class="keyword">const</span> <a class="code" href="llimits_8h.html#e1fe9ac10d9803bd1d7bdf30b18bad68">lu_byte</a> <a class="code" href="lopcodes_8c.html#f5c84fd2cae11b79621101db8a9c4390">luaP_opmodes</a>[<a class="code" href="lopcodes_8h.html#1fb469ba81540d3314cfbe37c675ba20">NUM_OPCODES</a>];
<a name="l00223"></a>00223
<a name="l00224"></a><a class="code" href="lopcodes_8h.html#fb3fdd221fb95fdd1c254f7ab479739e">00224</a> <span class="preprocessor">#define getOpMode(m) (cast(enum OpMode, luaP_opmodes[m] & 3))</span>
<a name="l00225"></a><a class="code" href="lopcodes_8h.html#8b016273080328f1330a728e526bfcb5">00225</a> <span class="preprocessor"></span><span class="preprocessor">#define testOpMode(m, b) (luaP_opmodes[m] & (1 << (b)))</span>
<a name="l00226"></a>00226 <span class="preprocessor"></span>
<a name="l00227"></a>00227
<a name="l00228"></a>00228 <span class="preprocessor">#ifdef LUA_OPNAMES</span>
<a name="l00229"></a>00229 <span class="preprocessor"></span><span class="keyword">extern</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *<span class="keyword">const</span> luaP_opnames[]; <span class="comment">/* opcode names */</span>
<a name="l00230"></a>00230 <span class="preprocessor">#endif</span>
<a name="l00231"></a>00231 <span class="preprocessor"></span>
<a name="l00232"></a>00232
<a name="l00233"></a>00233
<a name="l00234"></a>00234 <span class="comment">/* number of list items to accumulate before a SETLIST instruction */</span>
<a name="l00235"></a>00235 <span class="comment">/* (must be a power of 2) */</span>
<a name="l00236"></a><a class="code" href="lopcodes_8h.html#0888e2bcb54f6e603f09208763aadfe9">00236</a> <span class="preprocessor">#define LFIELDS_PER_FLUSH 32</span>
<a name="l00237"></a>00237 <span class="preprocessor"></span>
<a name="l00238"></a>00238
<a name="l00239"></a>00239 <span class="preprocessor">#endif</span>
</pre></div><hr size="1"><address style="align: right;"><small>Generated on 1 Oct 2013 for rpm by
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.4.7 </small></address>
</body>
</html>
