# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781285696 0
# Node ID 1fbc46670cb027a0c0d7a9773018b0be57929794
# Parent  3115ae493c30b1b263f91454c994620211f51695
(store_function_docstring): Don't use XFASTINT as an lvalue.

diff -r 3115ae493c30 -r 1fbc46670cb0 src/doc.c
--- a/src/doc.c	Tue Oct 04 15:47:28 1994 +0000
+++ b/src/doc.c	Tue Oct 04 15:48:16 1994 +0000
@@ -262,7 +262,7 @@
 	{
 	  tem = Fcdr (Fcdr (fun));
 	  if (CONSP (tem) && INTEGERP (XCONS (tem)->car))
-	    XFASTINT (XCONS (tem)->car) = offset;
+	    XSETFASTINT (XCONS (tem)->car, offset);
 	}
       else if (EQ (tem, Qmacro))
 	store_function_docstring (XCONS (fun)->cdr, offset);
@@ -274,7 +274,7 @@
       /* This bytecode object must have a slot for the
 	 docstring, since we've found a docstring for it.  */
       if (XVECTOR (fun)->size > COMPILED_DOC_STRING)
-	XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset;
+	XSETFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING], offset);
     }
 }