From 5a8e653cd5c6c33a129c40e3f5fa3fb17896b909 Mon Sep 17 00:00:00 2001
From: James R <justsomejames2@gmail.com>
Date: Sat, 21 Nov 2020 13:43:32 -0800
Subject: [PATCH] More concise

---
 src/blua/lcode.c | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/blua/lcode.c b/src/blua/lcode.c
index efb20e96b..fd4aaff24 100644
--- a/src/blua/lcode.c
+++ b/src/blua/lcode.c
@@ -689,7 +689,7 @@ static void codearith (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2) {
 static void codeunaryarith (FuncState *fs, OpCode op, expdesc *e) {
   expdesc e2;
   e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0;
-  if (!isnumeral(e))
+  if (op == OP_LEN || !isnumeral(e))
     luaK_exp2anyreg(fs, e);  /* cannot operate on non-numeric constants */
   codearith(fs, op, e, &e2);
 }
@@ -712,17 +712,11 @@ static void codecomp (FuncState *fs, OpCode op, int cond, expdesc *e1,
 
 
 void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) {
-  expdesc e2;
-  e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0;
   switch (op) {
     case OPR_MINUS: codeunaryarith(fs, OP_UNM, e); break;
     case OPR_BNOT: codeunaryarith(fs, OP_BNOT, e); break;
     case OPR_NOT: codenot(fs, e); break;
-    case OPR_LEN: {
-      luaK_exp2anyreg(fs, e);  /* cannot operate on constants */
-      codearith(fs, OP_LEN, e, &e2);
-      break;
-    }
+    case OPR_LEN: codeunaryarith(fs, OP_LEN, e); break;
     default: lua_assert(0);
   }
 }