[Emacs-diffs] master e36a388 2/2: Simplify exec_byte_code via moving decls etc.

[Paul Eggert]

branch: master
commit e36a3882c338765a9ddfebfc160e5a298933f233
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Simplify exec_byte_code via moving decls etc.
    
    * src/bytecode.c (exec_byte_code): Simplify, mostly by moving
    initializers into decls, and by omitting some unnecessary changes
    to ‘top’.
---
 src/bytecode.c |   40 +++++++++++++++-------------------------
 1 file changed, 15 insertions(+), 25 deletions(-)

diff --git a/src/bytecode.c b/src/bytecode.c
index 51546ca..d484dbb 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -508,9 +508,8 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
 
        CASE (Bgotoifnil):
          {
-           Lisp_Object v1;
+           Lisp_Object v1 = POP;
            op = FETCH2;
-           v1 = POP;
            if (NILP (v1))
              goto op_branch;
            NEXT;
@@ -686,13 +685,10 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
          NEXT;
 
        CASE (Bgotoifnonnil):
-         {
-           op = FETCH2;
-           Lisp_Object v1 = POP;
-           if (!NILP (v1))
-             goto op_branch;
-           NEXT;
-         }
+         op = FETCH2;
+         if (!NILP (POP))
+           goto op_branch;
+         NEXT;
 
        CASE (Bgotoifnilelsepop):
          op = FETCH2;
@@ -713,22 +709,16 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
          goto op_relative_branch;
 
        CASE (BRgotoifnil):
-         {
-           Lisp_Object v1 = POP;
-           op = FETCH - 128;
-           if (NILP (v1))
-             goto op_relative_branch;
-           NEXT;
-         }
+         op = FETCH - 128;
+         if (NILP (POP))
+           goto op_relative_branch;
+         NEXT;
 
        CASE (BRgotoifnonnil):
-         {
-           Lisp_Object v1 = POP;
-           op = FETCH - 128;
-           if (!NILP (v1))
-             goto op_relative_branch;
-           NEXT;
-         }
+         op = FETCH - 128;
+         if (!NILP (POP))
+           goto op_relative_branch;
+         NEXT;
 
        CASE (BRgotoifnilelsepop):
          op = FETCH - 128;
@@ -1248,9 +1238,9 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, 
Lisp_Object maxdepth,
 
        CASE (Bdowncase):
          TOP = Fdowncase (TOP);
-       NEXT;
+         NEXT;
 
-      CASE (Bstringeqlsign):
+       CASE (Bstringeqlsign):
          {
            Lisp_Object v1 = POP;
            TOP = Fstring_equal (TOP, v1);