comparison src/dosfns.c @ 58012:934f6fb6fd8a

* dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in comparisons with integers instead of Lisp_Object address. (Fmsdos_set_keyboard): Declare argument allkeys. * msdos.c (IT_set_frame_parameters): Use EQ, not ==, for Lisp_Object:s. * dired.c: extern declare Fmsdos_downcase_filename on MSDOS to avoid int/Lisp_Object mixup. * fileio.c: Ditto.

58011:79614f2016d5

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
    return Qnil;
  buf = alloca (len);
  dosmemget (offs, len, buf);

  for (i = 0; i < len; i++)

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
    return Qnil;
  buf = alloca (len);

  for (i = 0; i < len; i++)
    {

       doc: /* Set keyboard layout according to COUNTRY-CODE.
If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
all keys; otherwise it is only used when the ALT key is pressed.
The current keyboard layout is available in dos-keyboard-code.  */)
     (country_code, allkeys)
     Lisp_Object country_code;
{
  CHECK_NUMBER (country_code);
  if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
    return Qnil;
  return Qt;

58012:934f6fb6fd8a

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
    return Qnil;
  buf = alloca (len);
  dosmemget (offs, len, buf);

  for (i = 0; i < len; i++)

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
    return Qnil;
  buf = alloca (len);

  for (i = 0; i < len; i++)
    {

       doc: /* Set keyboard layout according to COUNTRY-CODE.
If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
all keys; otherwise it is only used when the ALT key is pressed.
The current keyboard layout is available in dos-keyboard-code.  */)
     (country_code, allkeys)
     Lisp_Object country_code, allkeys;
{
  CHECK_NUMBER (country_code);
  if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
    return Qnil;
  return Qt;