comparison src/dosfns.c @ 109761:31def5db596a

Fix -Wall compiler warnings in MSDOS sources. msdos.c (IT_set_face): Fix format string to match argument types. (IT_write_glyphs, IT_note_mode_line_highlight) (IT_set_frame_parameters): Remove unused variables. (x_set_menu_bar_lines): Declare set_menu_bar_lines. (IT_set_terminal_modes): Disambiguate expression in if clause. (Fmsdos_remember_default_colors): Return Qnil. (IT_set_frame_parameters): Add parens to disambiguate boolean expression for logging the cursor type to termscript. (keyboard_layout_list, keypad_translate_map) (grey_key_translate_map): Add braces in inner initializers. (dos_rawgetc): Add parens in condition for mouse-3 button-press. (dos_rawgetc): Remove unused label. (XMenuActivate): Add braces to remove ambiguous `else'. (dos_ttraw): Always return a value. (spawnve): Declare. (run_msdos_command): Cast 3rd arg of spawnve to "char **". dosfns.h (x_set_title): Declare. w16select.c (Fw16_set_clipboard_data, Fw16_get_clipboard_data): Remove unused variables. dosfns.c (Fint86, Fdos_memget, Fdos_memput): Remove unused variables. (init_dosfns): Declare get_lim_data. (system_process_attributes): Declare Fget_internal_run_time.

109760:0217a9452703

  (Lisp_Object interrupt, Lisp_Object registers)
{
  register int i;
  int no;
  union REGS inregs, outregs;
  Lisp_Object val;

  CHECK_NUMBER (interrupt);
  no = (unsigned long) XINT (interrupt);
  CHECK_VECTOR (registers);
  if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)

  (Lisp_Object address, Lisp_Object vector)
{
  register int i;
  int offs, len;
  char *buf;
  Lisp_Object val;

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;

  (Lisp_Object address, Lisp_Object vector)
{
  register int i;
  int offs, len;
  char *buf;
  Lisp_Object val;

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;

  union REGS regs;
  _go32_dpmi_registers dpmiregs;
  unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;

#ifndef SYSTEM_MALLOC
  get_lim_data (); /* why the hell isn't this called elsewhere? */
#endif

  regs.x.ax = 0x3000;
  intdos (&regs, &regs);

      char *cmdline = NULL, *p, *q;
      size_t cmdline_size = 0;
      int i;
      Lisp_Object cmd_str, decoded_cmd, tem;
      double pmem;
#ifndef SYSTEM_MALLOC
      extern unsigned long ret_lim_data ();
#endif

      uid = getuid ();

109761:31def5db596a

  (Lisp_Object interrupt, Lisp_Object registers)
{
  register int i;
  int no;
  union REGS inregs, outregs;

  CHECK_NUMBER (interrupt);
  no = (unsigned long) XINT (interrupt);
  CHECK_VECTOR (registers);
  if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)

  (Lisp_Object address, Lisp_Object vector)
{
  register int i;
  int offs, len;
  char *buf;

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;

  (Lisp_Object address, Lisp_Object vector)
{
  register int i;
  int offs, len;
  char *buf;

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;

  union REGS regs;
  _go32_dpmi_registers dpmiregs;
  unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;

#ifndef SYSTEM_MALLOC
  extern void get_lim_data (void);

  get_lim_data (); /* why the hell isn't this called elsewhere? */
#endif

  regs.x.ax = 0x3000;
  intdos (&regs, &regs);

      char *cmdline = NULL, *p, *q;
      size_t cmdline_size = 0;
      int i;
      Lisp_Object cmd_str, decoded_cmd, tem;
      double pmem;
      EXFUN (Fget_internal_run_time, 0);
#ifndef SYSTEM_MALLOC
      extern unsigned long ret_lim_data ();
#endif

      uid = getuid ();