comparison src/process.c @ 28012:9c8bcd7e4a4f

(send_process): Remove local variable `procname' that might become invalid when a GC happens. Instead, access the process name slot directly.

28011:8232258537cc

     int len;
     Lisp_Object object;
{
  /* Use volatile to protect variables from being clobbered by longjmp.  */
  int rv;
  volatile unsigned char *procname = XSTRING (XPROCESS (proc)->name)->data;
  struct coding_system *coding;
  struct gcpro gcpro1;
  int carryover = XINT (XPROCESS (proc)->encoding_carryover);

  GCPRO1 (object);

#endif /* VMS */

  if (! NILP (XPROCESS (proc)->raw_status_low))
    update_status (XPROCESS (proc));
  if (! EQ (XPROCESS (proc)->status, Qrun))
    error ("Process %s not running", procname);
  if (XINT (XPROCESS (proc)->outfd) < 0)
    error ("Output file descriptor of %s is closed", procname);

  coding = proc_encode_coding_system[XINT (XPROCESS (proc)->outfd)];
  Vlast_coding_system_used = coding->symbol;

  if (CODING_REQUIRE_ENCODING (coding))

      XPROCESS (proc)->raw_status_high = Qnil;
      XPROCESS (proc)->status = Fcons (Qexit, Fcons (make_number (256), Qnil));
      XSETINT (XPROCESS (proc)->tick, ++process_tick);
      deactivate_process (proc);
#ifdef VMS
      error ("Error writing to process %s; closed it", procname);
#else
      error ("SIGPIPE raised on process %s; closed it", procname);
#endif
    }

  UNGCPRO;
}

28012:9c8bcd7e4a4f

     int len;
     Lisp_Object object;
{
  /* Use volatile to protect variables from being clobbered by longjmp.  */
  int rv;
  struct coding_system *coding;
  struct gcpro gcpro1;
  int carryover = XINT (XPROCESS (proc)->encoding_carryover);

  GCPRO1 (object);

#endif /* VMS */

  if (! NILP (XPROCESS (proc)->raw_status_low))
    update_status (XPROCESS (proc));
  if (! EQ (XPROCESS (proc)->status, Qrun))
    error ("Process %s not running",
	   XSTRING (XPROCESS (proc)->name)->data);
  if (XINT (XPROCESS (proc)->outfd) < 0)
    error ("Output file descriptor of %s is closed",
	   XSTRING (XPROCESS (proc)->name)->data);

  coding = proc_encode_coding_system[XINT (XPROCESS (proc)->outfd)];
  Vlast_coding_system_used = coding->symbol;

  if (CODING_REQUIRE_ENCODING (coding))

      XPROCESS (proc)->raw_status_high = Qnil;
      XPROCESS (proc)->status = Fcons (Qexit, Fcons (make_number (256), Qnil));
      XSETINT (XPROCESS (proc)->tick, ++process_tick);
      deactivate_process (proc);
#ifdef VMS
      error ("Error writing to process %s; closed it", 
	     XSTRING (XPROCESS (proc)->name)->data);
#else
      error ("SIGPIPE raised on process %s; closed it",
	     XSTRING (XPROCESS (proc)->name)->data);
#endif
    }

  UNGCPRO;
}