From 9aff171f3bf0125314a29a5ca952470b2d83708e Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 11 Dec 2001 20:48:44 -0200
Subject: new type `boolean'

---
 lvm.c | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

(limited to 'lvm.c')

diff --git a/lvm.c b/lvm.c
index b49d8365..253c01a4 100644
--- a/lvm.c
+++ b/lvm.c
@@ -223,7 +223,7 @@ int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r) {
   else {  /* try TM */
     if (!call_binTM(L, l, r, L->top, TM_LT))
       luaG_ordererror(L, l, r);
-    return (ttype(L->top) != LUA_TNIL);
+    return !l_isfalse(L->top);
   }
 }
 
@@ -369,6 +369,11 @@ StkId luaV_execute (lua_State *L, const LClosure *cl, StkId base) {
         setnvalue(ra, (lua_Number)GETARG_sBc(i));
         break;
       }
+      case OP_LOADBOOL: {
+        setbvalue(ra, GETARG_B(i));
+        if (GETARG_C(i)) pc++;  /* skip next instruction (if C) */
+        break;
+      }
       case OP_LOADNIL: {
         TObject *rb = RB(i);
         do {
@@ -450,11 +455,8 @@ StkId luaV_execute (lua_State *L, const LClosure *cl, StkId base) {
         break;
       }
       case OP_NOT: {
-        if (ttype(RB(i)) == LUA_TNIL) {
-          setnvalue(ra, 1);
-        } else {
-          setnilvalue(ra);
-        }
+        int res = l_isfalse(RB(i));  /* next assignment may change this value */
+        setbvalue(ra, res);
         break;
       }
       case OP_CONCAT: {
@@ -508,7 +510,7 @@ StkId luaV_execute (lua_State *L, const LClosure *cl, StkId base) {
       case OP_TESTT: {
         StkId rb = RB(i);
         lua_assert(GET_OPCODE(*pc) == OP_CJMP);
-        if (ttype(rb) != LUA_TNIL) {
+        if (!l_isfalse(rb)) {
           setobj(ra, rb);
           dojump(pc, *pc);
         }
@@ -516,19 +518,15 @@ StkId luaV_execute (lua_State *L, const LClosure *cl, StkId base) {
         break;
       }
       case OP_TESTF: {
+        StkId rb = RB(i);
         lua_assert(GET_OPCODE(*pc) == OP_CJMP);
-        if (ttype(RB(i)) == LUA_TNIL) {
-          setnilvalue(ra);
+        if (l_isfalse(rb)) {
+          setobj(ra, rb);
           dojump(pc, *pc);
         }
         pc++;
         break;
       }
-      case OP_NILJMP: {
-        setnilvalue(ra);
-        pc++;
-        break;
-      }
       case OP_CALL: {
         int c;
         int b = GETARG_B(i);
-- 
cgit v1.2.3-55-g6feb