* fns.c (Fnthcdr, Fsort): Don't assume list length fits in int.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3c690a5cae071f9f11b08cd5139ecba016f1cc8c..4326bad03fc04dbf510d8187833ad32041e30112 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -9,6 +9,7 @@
        (Flength): Report an error instead of overflowing an integer.
        (Fsafe_length): Return a float if the value is not representable
        as a fixnum.  This shouldn't happen except in contrived situations.
+       (Fnthcdr, Fsort): Don't assume list length fits in int.
 
        * alloc.c: Check that resized vectors' lengths fit in fixnums.
        (header_size, word_size): New constants.

diff --git a/src/fns.c b/src/fns.c
index 10af162cfc46bc33935fd0747864cc0f6e3d2cde..987d5a6564d755539f7c4ca124f60c6bf3a8a0b2 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1286,7 +1286,7 @@ DEFUN ("nthcdr", Fnthcdr, Snthcdr, 2, 2, 0,
        doc: /* Take cdr N times on LIST, return the result.  */)
   (Lisp_Object n, Lisp_Object list)
 {
-  register int i, num;
+  EMACS_INT i, num;
   CHECK_NUMBER (n);
   num = XINT (n);
   for (i = 0; i < num && !NILP (list); i++)
@@ -1751,7 +1751,7 @@ if the first element should sort before the second.  */)
   Lisp_Object front, back;
   register Lisp_Object len, tem;
   struct gcpro gcpro1, gcpro2;
-  register int length;
+  EMACS_INT length;
 
   front = list;
   len = Flength (list);