From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 10 Sep 2014 15:21:46 +0000 (-0700)
Subject: * src/alloc.c (verify_alloca): Replace a stray occurrence of pointer_valid_for_lisp_o... 
X-Git-Tag: emacs-25.0.90~2635^2~679^2~319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2dcba1cf3acc322b7d0c45e5bfb12148f464e07;p=emacs.git

* src/alloc.c (verify_alloca): Replace a stray occurrence of pointer_valid_for_lisp_object.
---

diff --git a/src/alloc.c b/src/alloc.c
index 714827f6ae3..1dbd46d6f89 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -7175,8 +7175,8 @@ verify_alloca (void)
   /* Start from size of the smallest Lisp object.  */
   for (i = sizeof (struct Lisp_Cons); i <= ALLOCA_CHECK_MAX; i++)
     {
-      char *ptr = alloca (i);
-      eassert (pointer_valid_for_lisp_object (ptr));
+      void *ptr = alloca (i);
+      make_lisp_ptr (ptr, Lisp_Cons);
     }
 }