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

1 files changed, 2 insertions, 2 deletions

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);
     }
 }