From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 4 Oct 1994 15:44:37 +0000 (+0000)
Subject: (Faref, Farray_length): Don't use XFASTINT as an lvalue.
X-Git-Tag: emacs-19.34~6553
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/1b42cf2e61a093cf8e2d04d4d6229d51052b1438

(Faref, Farray_length): Don't use XFASTINT as an lvalue.
---

diff --git a/src/data.c b/src/data.c
index b9f0e53297..f6cba5c6dd 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1336,7 +1336,7 @@ ARRAY may be a vector or a string, or a byte-code object.  INDEX starts at 0.")
   if (STRINGP (array))
     {
       Lisp_Object val;
-      XFASTINT (val) = (unsigned char) XSTRING (array)->data[idxval];
+      XSETFASTINT (val, (unsigned char) XSTRING (array)->data[idxval]);
       return val;
     }
   else
@@ -1378,7 +1378,7 @@ Farray_length (array)
   register Lisp_Object size;
   if (!VECTORP (array) && !STRINGP (array) && !COMPILEDP (array))
     array = wrong_type_argument (Qarrayp, array);
-  XFASTINT (size) = XVECTOR (array)->size;
+  XSETFASTINT (size, XVECTOR (array)->size);
   return size;
 }