comparison src/print.c @ 55498:2b06def87ce0

(print_preprocess): Use being_printed, loop_count and halftail to detect overdeep nesting and cyclic cdr chains.

55497:85aa052b7bf2

print_preprocess (obj)
     Lisp_Object obj;
{
  int i;
  EMACS_INT size;

 loop:
  if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
      || COMPILEDP (obj) || CHAR_TABLE_P (obj)
      || (! NILP (Vprint_gensym)

	  traverse_intervals_noorder (STRING_INTERVALS (obj),
				      print_preprocess_string, Qnil);
	  break;

	case Lisp_Cons:
	  print_preprocess (XCAR (obj));
	  obj = XCDR (obj);
	  goto loop;

	case Lisp_Vectorlike:
	  size = XVECTOR (obj)->size;
	  if (size & PSEUDOVECTOR_FLAG)

	default:
	  break;
	}
    }
}

static void
print_preprocess_string (interval, arg)
     INTERVAL interval;

	}
    }

  print_depth++;

  if (print_depth > PRINT_CIRCLE)
    error ("Apparently circular structure being printed");
#ifdef MAX_PRINT_CHARS
  if (max_print && print_chars > max_print)
    {

55498:2b06def87ce0

print_preprocess (obj)
     Lisp_Object obj;
{
  int i;
  EMACS_INT size;
  int loop_count = 0;
  Lisp_Object halftail;

  /* Avoid infinite recursion for circular nested structure
     in the case where Vprint_circle is nil.  */
  if (NILP (Vprint_circle))
    {
      for (i = 0; i < print_depth; i++)
	if (EQ (obj, being_printed[i]))
	  return;
      being_printed[print_depth] = obj;
    }

  /* Give up if we go so deep that print_object will get an error.  */
  /* See similar code in print_object.  */
  if (print_depth >= PRINT_CIRCLE)
    return;

  print_depth++;
  halftail = obj;

 loop:
  if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
      || COMPILEDP (obj) || CHAR_TABLE_P (obj)
      || (! NILP (Vprint_gensym)

	  traverse_intervals_noorder (STRING_INTERVALS (obj),
				      print_preprocess_string, Qnil);
	  break;

	case Lisp_Cons:
	  /* Use HALFTAIL and LOOP_COUNT to detect circular lists,
	     just as in print_object.  */
	  if (loop_count && EQ (obj, halftail))
	    break;
	  print_preprocess (XCAR (obj));
	  obj = XCDR (obj);
	  loop_count++;
	  if (!(loop_count & 1))
	    halftail = XCDR (halftail);
	  goto loop;

	case Lisp_Vectorlike:
	  size = XVECTOR (obj)->size;
	  if (size & PSEUDOVECTOR_FLAG)

	default:
	  break;
	}
    }
  print_depth--;
}

static void
print_preprocess_string (interval, arg)
     INTERVAL interval;

	}
    }

  print_depth++;

  /* See similar code in print_preprocess.  */
  if (print_depth > PRINT_CIRCLE)
    error ("Apparently circular structure being printed");
#ifdef MAX_PRINT_CHARS
  if (max_print && print_chars > max_print)
    {