comparison src/charset.c @ 56190:f7711455b84f

(Fstring): Use SAFE_ALLOCA.

56189:d2086c9c0507

usage: (string &rest CHARACTERS)  */)
     (n, args)
     int n;
     Lisp_Object *args;
{
  int i;
  unsigned char *buf = (unsigned char *) alloca (MAX_MULTIBYTE_LENGTH * n);
  unsigned char *p = buf;
  int c;
  int multibyte = 0;

  for (i = 0; i < n; i++)
    {
      CHECK_NUMBER (args[i]);
      if (!multibyte && !SINGLE_BYTE_CHAR_P (XFASTINT (args[i])))

	p += CHAR_STRING (c, p);
      else
	*p++ = c;
    }

  return make_string_from_bytes (buf, n, p - buf);
}

#endif /* emacs */

int

56190:f7711455b84f

usage: (string &rest CHARACTERS)  */)
     (n, args)
     int n;
     Lisp_Object *args;
{
  int i, bufsize;
  unsigned char *buf, *p;
  int c;
  int multibyte = 0;
  Lisp_Object ret;
  USE_SAFE_ALLOCA;

  bufsize = MAX_MULTIBYTE_LENGTH * n;
  SAFE_ALLOCA (buf, unsigned char *, bufsize);
  p = buf;

  for (i = 0; i < n; i++)
    {
      CHECK_NUMBER (args[i]);
      if (!multibyte && !SINGLE_BYTE_CHAR_P (XFASTINT (args[i])))

	p += CHAR_STRING (c, p);
      else
	*p++ = c;
    }

  ret = make_string_from_bytes (buf, n, p - buf);
  SAFE_FREE (bufsize);

  return ret;
}

#endif /* emacs */

int