From 29ebea3b123db665db1267880df65d0ec697aff3 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 4 Sep 2011 10:25:23 -0700 Subject: [PATCH] * print.c: Integer overflow fix. (print_object): Use ptrdiff_t, not int, for index that can exceed INT_MAX. --- src/ChangeLog | 4 ++++ src/print.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9c5ca280eba..cbd8cd2c219 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2011-09-04 Paul Eggert + * print.c: Integer overflow fix. + (print_object): Use ptrdiff_t, not int, for index that can + exceed INT_MAX. + * indent.c: Integer overflow fixes. (position_indentation): Now takes ptrdiff_t, not int. (Fvertical_motion): Don't wrap around LINES values that don't fit diff --git a/src/print.c b/src/print.c index 35f89860843..913a14b3e42 100644 --- a/src/print.c +++ b/src/print.c @@ -1697,7 +1697,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag } else if (BOOL_VECTOR_P (obj)) { - register int i; + ptrdiff_t i; register unsigned char c; struct gcpro gcpro1; EMACS_INT size_in_chars -- 2.39.2