From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 28 Apr 2011 00:45:40 +0000 (-0700)
Subject: * eval.c (Fautoload): Don't double-shift a pointer.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~92^2~42
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51639eace139fdbed3522d4f752d771e6c66b067;p=emacs.git

* eval.c (Fautoload): Don't double-shift a pointer.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index a43e61f8278..442e8e3b1f6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-28  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* eval.c (Fautoload): Don't double-shift a pointer.
+
 	* fns.c (Frandom): Let EMACS_UINT be wider than unsigned long.
 
 2011-04-27  Paul Eggert  <eggert@cs.ucla.edu>
diff --git a/src/eval.c b/src/eval.c
index bcbbf740153..88b8572a33e 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2144,7 +2144,7 @@ this does nothing and returns nil.  */)
        We used to use 0 here, but that leads to accidental sharing in
        purecopy's hash-consing, so we use a (hopefully) unique integer
        instead.  */
-    docstring = make_number (XHASH (function));
+    docstring = make_number (XPNTR (function));
   return Ffset (function,
 		Fpurecopy (list5 (Qautoload, file, docstring,
 				  interactive, type)));