Pacify "statement not reached" in value_cmp

Problem found by Oracle Developer Studio 12.6.
* src/fns.c (value_cmp): Omit unnecessary goto.

(cherry picked from commit 4fa10b5760c7ded3cc18d0da614a5f0cd38edfef)

diff --git a/src/fns.c b/src/fns.c
index 7903f91ec68340833380aec13e03998d34e4a4d7..afca20d67ae9a772ac53c9c66f9fa1eef96ccc62 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -3109,6 +3109,8 @@ value_cmp (Lisp_Object a, Lisp_Object b, int maxdepth)
              goto tail_recurse;
            }
        }
+      if (NILP (b))
+       return 1;
       goto type_mismatch;
 
     case Lisp_Vectorlike: