From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 5 Oct 2019 14:05:37 +0000 (+0200)
Subject: add comp-test-silly-frame2 to test funcs
X-Git-Tag: emacs-28.0.90~2727^2~1090
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cc1374786dcc28b80da546e708f7360f102abd4;p=emacs.git

add comp-test-silly-frame2 to test funcs
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 3d8d3437bda..540170ea966 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -340,8 +340,8 @@
 
 ;; Non tested functions that proved just to be difficult to compile.
 
-(defun comp-test-callee (_ _) t)
-(defun comp-test-silly-frame (x)
+(defun comp-test-callee (_ __) t)
+(defun comp-test-silly-frame1 (x)
   (cl-case x
     (0 (comp-test-callee
         (pcase comp-tests-var1
@@ -349,4 +349,10 @@
           (2 2))
         3))))
 
+(defun comp-test-silly-frame2 (token)
+  (while c
+    (cl-case c
+      (?< 1)
+      (?> 2))))
+
 ;;; comp-test-funcs.el ends here