Mercurial > emacs

diff src/alloc.c @ 111670:f736e5e4fef4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* alloc.c (mark_maybe_object): Return early if given a Lisp integer (Bug#6301).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 21 Nov 2010 19:43:53 -0500
parents e06fc3baed8c
children 141d3f14d8c3
line wrap: on
line diff
--- a/src/alloc.c	Sun Nov 21 22:46:16 2010 +0000
+++ b/src/alloc.c	Sun Nov 21 19:43:53 2010 -0500
@@ -3986,8 +3986,14 @@
 static INLINE void
 mark_maybe_object (Lisp_Object obj)
 {
-  void *po = (void *) XPNTR (obj);
-  struct mem_node *m = mem_find (po);
+  void *po;
+  struct mem_node *m;
+
+  if (INTEGERP (obj))
+    return;
+
+  po = (void *) XPNTR (obj);
+  m = mem_find (po);
 
   if (m != MEM_NIL)
     {