* eval.c (Fbacktrace_frame): Don't assume nframes fits in int.

diff --git a/src/ChangeLog b/src/ChangeLog
index 57389f306be53fff3b841bcffaa92e5e8d0307d0..3998d74ba0c45a9a05b0a0c2874154cc39463d1b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,7 @@
 2011-03-27  Paul Eggert  <eggert@cs.ucla.edu>
 
        * eval.c (Fbacktrace): Don't assume nargs fits in int.
+       (Fbacktrace_frame): Don't assume nframes fits in int.
 
        * syntax.c (scan_sexps_forward): Avoid pointer wraparound.
 

diff --git a/src/eval.c b/src/eval.c
index b732cbc644aa99fb422f38d1a8052623d919649d..982fec66bbff8237559fb0f1a48374af4e014c7c 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -3365,7 +3365,7 @@ If NFRAMES is more than the number of frames, the value is nil.  */)
   (Lisp_Object nframes)
 {
   register struct backtrace *backlist = backtrace_list;
-  register int i;
+  register EMACS_INT i;
   Lisp_Object tem;
 
   CHECK_NATNUM (nframes);