Commit 76afdf7e authored by Chong Yidong's avatar Chong Yidong
Browse files

(print_object): Check print_depth before searching for circularities.

parent b42f4115
...@@ -1560,6 +1560,10 @@ print_object (obj, printcharfun, escapeflag) ...@@ -1560,6 +1560,10 @@ print_object (obj, printcharfun, escapeflag)
QUIT; QUIT;
/* See similar code in print_preprocess. */
if (print_depth > PRINT_CIRCLE)
error ("Apparently circular structure being printed");
/* Detect circularities and truncate them. */ /* Detect circularities and truncate them. */
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
|| COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj) || COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
...@@ -1610,9 +1614,6 @@ print_object (obj, printcharfun, escapeflag) ...@@ -1610,9 +1614,6 @@ print_object (obj, printcharfun, escapeflag)
print_depth++; print_depth++;
/* See similar code in print_preprocess. */
if (print_depth > PRINT_CIRCLE)
error ("Apparently circular structure being printed");
#ifdef MAX_PRINT_CHARS #ifdef MAX_PRINT_CHARS
if (max_print && print_chars > max_print) if (max_print && print_chars > max_print)
{ {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment