comparison src/process.c @ 110562:ea50a897140e

Fix int/EMACS_INT use in process.c and term.c. term.c (fast_find_position, term_mouse_highlight): Use EMACS_INT for buffer positions. process.c (read_process_output, send_process) (Fprocess_send_region, status_notify): Use EMACS_INT for buffer and string positions and size.

110561:93141d34a175

{
  register int nbytes;
  char *chars;
  register Lisp_Object outstream;
  register struct Lisp_Process *p = XPROCESS (proc);
  register int opoint;
  struct coding_system *coding = proc_decode_coding_system[channel];
  int carryover = p->decoding_carryover;
  int readmax = 4096;
  int count = SPECPDL_INDEX ();
  Lisp_Object odeactivate;

  /* If no filter, write into buffer if it isn't dead.  */
  else if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
    {
      Lisp_Object old_read_only;
      int old_begv, old_zv;
      int old_begv_byte, old_zv_byte;
      int before, before_byte;
      int opoint_byte;
      Lisp_Object text;
      struct buffer *b;

      Fset_buffer (p->buffer);
      opoint = PT;

   This function can evaluate Lisp code and can garbage collect.  */

static void
send_process (volatile Lisp_Object proc, const unsigned char *volatile buf,
	      volatile int len, volatile Lisp_Object object)
{
  /* Use volatile to protect variables from being clobbered by longjmp.  */
  struct Lisp_Process *p = XPROCESS (proc);
  int rv;
  struct coding_system *coding;
  struct gcpro gcpro1;
  SIGTYPE (*volatile old_sigpipe) (int);

  GCPRO1 (object);

  if (CODING_REQUIRE_ENCODING (coding))
    {
      coding->dst_object = Qt;
      if (BUFFERP (object))
	{
	  int from_byte, from, to;
	  int save_pt, save_pt_byte;
	  struct buffer *cur = current_buffer;

	  set_buffer_internal (XBUFFER (object));
	  save_pt = PT, save_pt_byte = PT_BYTE;

  if (!setjmp (send_process_frame))
    {
      process_sent_to = proc;
      while (len > 0)
	{
	  int this = len;

	  /* Send this batch, using one or more write calls.  */
	  while (this > 0)
	    {
	      int outfd = p->outfd;

it is sent in several bunches.  This may happen even for shorter regions.
Output from processes can arrive in between bunches.  */)
  (Lisp_Object process, Lisp_Object start, Lisp_Object end)
{
  Lisp_Object proc;
  int start1, end1;

  proc = get_process (process);
  validate_region (&start, &end);

  if (XINT (start) < GPT && XINT (end) > GPT)

	     when a process becomes runnable.  */
	  else if (!EQ (symbol, Qrun) && !NILP (buffer))
	    {
	      Lisp_Object tem;
	      struct buffer *old = current_buffer;
	      int opoint, opoint_byte;
	      int before, before_byte;

	      /* Avoid error if buffer is deleted
		 (probably that's why the process is dead, too) */
	      if (NILP (XBUFFER (buffer)->name))
		continue;

110562:ea50a897140e

{
  register int nbytes;
  char *chars;
  register Lisp_Object outstream;
  register struct Lisp_Process *p = XPROCESS (proc);
  register EMACS_INT opoint;
  struct coding_system *coding = proc_decode_coding_system[channel];
  int carryover = p->decoding_carryover;
  int readmax = 4096;
  int count = SPECPDL_INDEX ();
  Lisp_Object odeactivate;

  /* If no filter, write into buffer if it isn't dead.  */
  else if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
    {
      Lisp_Object old_read_only;
      EMACS_INT old_begv, old_zv;
      EMACS_INT old_begv_byte, old_zv_byte;
      EMACS_INT before, before_byte;
      EMACS_INT opoint_byte;
      Lisp_Object text;
      struct buffer *b;

      Fset_buffer (p->buffer);
      opoint = PT;

   This function can evaluate Lisp code and can garbage collect.  */

static void
send_process (volatile Lisp_Object proc, const unsigned char *volatile buf,
	      volatile EMACS_INT len, volatile Lisp_Object object)
{
  /* Use volatile to protect variables from being clobbered by longjmp.  */
  struct Lisp_Process *p = XPROCESS (proc);
  EMACS_INT rv;
  struct coding_system *coding;
  struct gcpro gcpro1;
  SIGTYPE (*volatile old_sigpipe) (int);

  GCPRO1 (object);

  if (CODING_REQUIRE_ENCODING (coding))
    {
      coding->dst_object = Qt;
      if (BUFFERP (object))
	{
	  EMACS_INT from_byte, from, to;
	  EMACS_INT save_pt, save_pt_byte;
	  struct buffer *cur = current_buffer;

	  set_buffer_internal (XBUFFER (object));
	  save_pt = PT, save_pt_byte = PT_BYTE;

  if (!setjmp (send_process_frame))
    {
      process_sent_to = proc;
      while (len > 0)
	{
	  EMACS_INT this = len;

	  /* Send this batch, using one or more write calls.  */
	  while (this > 0)
	    {
	      int outfd = p->outfd;

it is sent in several bunches.  This may happen even for shorter regions.
Output from processes can arrive in between bunches.  */)
  (Lisp_Object process, Lisp_Object start, Lisp_Object end)
{
  Lisp_Object proc;
  EMACS_INT start1, end1;

  proc = get_process (process);
  validate_region (&start, &end);

  if (XINT (start) < GPT && XINT (end) > GPT)

	     when a process becomes runnable.  */
	  else if (!EQ (symbol, Qrun) && !NILP (buffer))
	    {
	      Lisp_Object tem;
	      struct buffer *old = current_buffer;
	      EMACS_INT opoint, opoint_byte;
	      EMACS_INT before, before_byte;

	      /* Avoid error if buffer is deleted
		 (probably that's why the process is dead, too) */
	      if (NILP (XBUFFER (buffer)->name))
		continue;