lua

commit fbc23d02456929a24bbad4eee2bd9d6ed8526ba7
parent 81a8845e4f10851693cbe438520a4c07d347a731
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 21 Aug 2002 15:56:11 -0300

details

Diffstat:
M
lcode.c
 | 
45
++++++++++++++-------------------------------
M
lopcodes.h
 | 
7
++++++-
M
lvm.c
 | 
4
++--

3 files changed, 22 insertions(+), 34 deletions(-)
diff --git a/lcode.c b/lcode.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lcode.c,v 1.109 2002/08/05 14:07:34 roberto Exp roberto $
+** $Id: lcode.c,v 1.110 2002/08/20 20:03:05 roberto Exp roberto $
 ** Code generator for Lua
 ** See Copyright Notice in lua.h
 */
@@ -616,38 +616,21 @@ void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) {
 
 static void codebinop (FuncState *fs, expdesc *res, BinOpr op,
                        int o1, int o2) {
-  switch (op) {
-    case OPR_SUB:
-    case OPR_DIV:
-    case OPR_POW:
-    case OPR_ADD:
-    case OPR_MULT: {  /* ORDER OPR */
-      OpCode opc = cast(OpCode, (op - OPR_ADD) + OP_ADD);
-      res->info = luaK_codeABC(fs, opc, 0, o1, o2);
-      res->k = VRELOCABLE;
-      break;
-    }
-    case OPR_NE:
-    case OPR_EQ: {
-      res->info = luaK_condjump(fs, OP_EQ, (op == OPR_EQ), o1, o2);
-      res->k = VJMP;
-      break;
-    }
-    case OPR_GT:
-    case OPR_GE: {  /* ORDER OPR */
-      int temp;
+  if (op <= OPR_POW) {  /* arithmetic operator? */
+    OpCode opc = cast(OpCode, (op - OPR_ADD) + OP_ADD);  /* ORDER OP */
+    res->info = luaK_codeABC(fs, opc, 0, o1, o2);
+    res->k = VRELOCABLE;
+  }
+  else {  /* test operator */
+    static const OpCode ops[] = {OP_EQ, OP_EQ, OP_LT, OP_LE, OP_LT, OP_LE};
+    int cond = 1;
+    if (op >= OPR_GT) {  /* `>' or `>='? */
+      int temp;  /* exchange args and replace by `<' or `<=' */
       temp = o1; o1 = o2; o2 = temp;  /* o1 <==> o2 */
-      op -= 2;  /* GT -> LT, GE -> LE */
-      /* go through */
-    }
-    case OPR_LT:
-    case OPR_LE: {
-      OpCode opc = cast(OpCode, (op - OPR_LT) + OP_LT);
-      res->info = luaK_condjump(fs, opc, 1, o1, o2);
-      res->k = VJMP;
-      break;
     }
-    default: lua_assert(0);
+    else if (op == OPR_NE) cond = 0;
+    res->info = luaK_condjump(fs, ops[op - OPR_NE], cond, o1, o2);
+    res->k = VJMP;
   }
 }
 
diff --git a/lopcodes.h b/lopcodes.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lopcodes.h,v 1.100 2002/08/05 14:46:43 roberto Exp roberto $
+** $Id: lopcodes.h,v 1.101 2002/08/20 20:03:05 roberto Exp roberto $
 ** Opcodes for Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -123,6 +123,11 @@ enum OpMode {iABC, iABx, iAsBx};  /* basic instruction format */
 ** RK(x) == if x < MAXSTACK then R(x) else Kst(x-MAXSTACK)
 */
 
+
+/*
+** grep "ORDER OP" if you change these enums
+*/
+
 typedef enum {
 /*----------------------------------------------------------------------
 name		args	description
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.252 2002/08/12 17:23:12 roberto Exp roberto $
+** $Id: lvm.c,v 1.253 2002/08/20 20:03:05 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -555,7 +555,7 @@ StkId luaV_execute (lua_State *L) {
         dojump(pc, GETARG_sBx(i));
         break;
       }
-      case OP_EQ: {  /* skip next instruction if test fails */
+      case OP_EQ: {
         if (equalobj(L, RKB(i), RKC(i)) != GETARG_A(i)) pc++;
         else dojump(pc, GETARG_sBx(*pc) + 1);
         break;