From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 4 Apr 2011 06:52:29 +0000 (-0700)
Subject: * print.c (print_error_message): Avoid int overflow.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~394^2~37
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7b9e80fe230ed80004673124a6f9465d89f4882;p=emacs.git

* print.c (print_error_message): Avoid int overflow.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ebe2e082e66..ab296dded6f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-04  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* print.c (print_error_message): Avoid int overflow.
+
 	* font.c (font_list_entities): Redo for clarity,
 	so that reader need not know FONT_DPI_INDEX + 1 == FONT_SPACING_INDEX.
 
diff --git a/src/print.c b/src/print.c
index 3e0e168381b..c076e1ec973 100644
--- a/src/print.c
+++ b/src/print.c
@@ -929,7 +929,7 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
   else
     write_string_1 ("peculiar error", -1, stream);
 
-  for (i = 0; CONSP (tail); tail = XCDR (tail), i++)
+  for (i = 0; CONSP (tail); tail = XCDR (tail), i = 1)
     {
       Lisp_Object obj;