comparison src/data.c @ 9301:e6daff3e246f

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

9300:84822d6ed3be

  if (idxval < 0 || idxval >= XVECTOR (array)->size)
    args_out_of_range (array, idx);
  if (STRINGP (array))
    {
      Lisp_Object val;
      XFASTINT (val) = (unsigned char) XSTRING (array)->data[idxval];
      return val;
    }
  else
    return XVECTOR (array)->contents[idxval];
}

     register Lisp_Object array;
{
  register Lisp_Object size;
  if (!VECTORP (array) && !STRINGP (array) && !COMPILEDP (array))
    array = wrong_type_argument (Qarrayp, array);
  XFASTINT (size) = XVECTOR (array)->size;
  return size;
}

/* Arithmetic functions */

9301:e6daff3e246f

  if (idxval < 0 || idxval >= XVECTOR (array)->size)
    args_out_of_range (array, idx);
  if (STRINGP (array))
    {
      Lisp_Object val;
      XSETFASTINT (val, (unsigned char) XSTRING (array)->data[idxval]);
      return val;
    }
  else
    return XVECTOR (array)->contents[idxval];
}

     register Lisp_Object array;
{
  register Lisp_Object size;
  if (!VECTORP (array) && !STRINGP (array) && !COMPILEDP (array))
    array = wrong_type_argument (Qarrayp, array);
  XSETFASTINT (size, XVECTOR (array)->size);
  return size;
}

/* Arithmetic functions */