# HG changeset patch # User Eli Zaretskii # Date 1285356613 14400 # Node ID e49fcbdc458f2e24b56ddd0e0c296aafca7adb1b # Parent eb608280bd3bd925624bc9d7e8971cc8cc9e556d Fix int/EMACS_INT in eval.c and indent.c, correct previous changes. indent.c (Fcurrent_indentation, indented_beyond_p) (compute_motion): Use EMACS_INT for buffer position variables. lisp.h (indented_beyond_p): Adjust prototype. buffer.c (overlay_strings): Return EMACS_INT. buffer.h (overlay_strings): Adjust prototype. region-cache.c (pp_cache): Adjust format to arguments. eval.c : Declare EMACS_INT. (call_debugger): Use EMACS_INT for specpdl_size related variables. (verror): Use EMACS_INT for size of allocated buffer. diff -r eb608280bd3b -r e49fcbdc458f src/ChangeLog --- a/src/ChangeLog Fri Sep 24 20:04:26 2010 +0200 +++ b/src/ChangeLog Fri Sep 24 15:30:13 2010 -0400 @@ -1,5 +1,20 @@ 2010-09-24 Eli Zaretskii + * indent.c (Fcurrent_indentation, indented_beyond_p) + (compute_motion): Use EMACS_INT for buffer position variables. + + * lisp.h (indented_beyond_p): Adjust prototype. + + * buffer.c (overlay_strings): Return EMACS_INT. + + * buffer.h (overlay_strings): Adjust prototype. + + * region-cache.c (pp_cache): Adjust format to arguments. + + * eval.c : Declare EMACS_INT. + (call_debugger): Use EMACS_INT for specpdl_size related variables. + (verror): Use EMACS_INT for size of allocated buffer. + * keyboard.c (make_lispy_position): Use EMACS_INT for buffer positions. diff -r eb608280bd3b -r e49fcbdc458f src/buffer.c --- a/src/buffer.c Fri Sep 24 20:04:26 2010 +0200 +++ b/src/buffer.c Fri Sep 24 15:30:13 2010 -0400 @@ -3134,7 +3134,7 @@ PSTR, if that variable is non-null. The string may be overwritten by subsequent calls. */ -int +EMACS_INT overlay_strings (EMACS_INT pos, struct window *w, unsigned char **pstr) { Lisp_Object overlay, window, str; diff -r eb608280bd3b -r e49fcbdc458f src/buffer.h --- a/src/buffer.h Fri Sep 24 20:04:26 2010 +0200 +++ b/src/buffer.h Fri Sep 24 15:30:13 2010 -0400 @@ -865,7 +865,7 @@ EMACS_INT *prev_ptr, int change_req); extern int sort_overlays (Lisp_Object *, int, struct window *); extern void recenter_overlay_lists (struct buffer *, EMACS_INT); -extern int overlay_strings (EMACS_INT, struct window *, unsigned char **); +extern EMACS_INT overlay_strings (EMACS_INT, struct window *, unsigned char **); extern void validate_region (Lisp_Object *, Lisp_Object *); extern void set_buffer_internal (struct buffer *); extern void set_buffer_internal_1 (struct buffer *); diff -r eb608280bd3b -r e49fcbdc458f src/eval.c --- a/src/eval.c Fri Sep 24 20:04:26 2010 +0200 +++ b/src/eval.c Fri Sep 24 15:30:13 2010 -0400 @@ -79,7 +79,7 @@ /* Current number of specbindings allocated in specpdl. */ -int specpdl_size; +EMACS_INT specpdl_size; /* Pointer to beginning of specpdl. */ @@ -95,7 +95,7 @@ /* Depth in Lisp evaluations and function calls. */ -int lisp_eval_depth; +EMACS_INT lisp_eval_depth; /* Maximum allowed depth in Lisp evaluations and function calls. */ @@ -216,7 +216,7 @@ int debug_while_redisplaying; int count = SPECPDL_INDEX (); Lisp_Object val; - int old_max = max_specpdl_size; + EMACS_INT old_max = max_specpdl_size; /* Temporarily bump up the stack limits, so the debugger won't run out of stack. */ @@ -1992,7 +1992,7 @@ verror (const char *m, va_list ap) { char buf[200]; - int size = 200; + EMACS_INT size = 200; int mlen; char *buffer = buf; char *args[3]; diff -r eb608280bd3b -r e49fcbdc458f src/indent.c --- a/src/indent.c Fri Sep 24 20:04:26 2010 +0200 +++ b/src/indent.c Fri Sep 24 15:30:13 2010 -0400 @@ -865,7 +865,7 @@ (void) { Lisp_Object val; - int opoint = PT, opoint_byte = PT_BYTE; + EMACS_INT opoint = PT, opoint_byte = PT_BYTE; scan_newline (PT, PT_BYTE, BEGV, BEGV_BYTE, -1, 1); @@ -964,10 +964,10 @@ preceding line. */ int -indented_beyond_p (int pos, int pos_byte, double column) +indented_beyond_p (EMACS_INT pos, EMACS_INT pos_byte, double column) { double val; - int opoint = PT, opoint_byte = PT_BYTE; + EMACS_INT opoint = PT, opoint_byte = PT_BYTE; SET_PT_BOTH (pos, pos_byte); while (PT > BEGV && FETCH_BYTE (PT_BYTE) == '\n') @@ -1254,7 +1254,7 @@ to be changed here. */ { unsigned char *ovstr; - int ovlen = overlay_strings (pos, win, &ovstr); + EMACS_INT ovlen = overlay_strings (pos, win, &ovstr); hpos += ((multibyte && ovlen > 0) ? strwidth (ovstr, ovlen) : ovlen); } @@ -1459,7 +1459,7 @@ want to skip over it for some other reason. */ if (common_width != 0) { - int run_end_hpos; + EMACS_INT run_end_hpos; /* Don't go past the final buffer posn the user requested. */ diff -r eb608280bd3b -r e49fcbdc458f src/lisp.h --- a/src/lisp.h Fri Sep 24 20:04:26 2010 +0200 +++ b/src/lisp.h Fri Sep 24 15:30:13 2010 -0400 @@ -1877,7 +1877,7 @@ extern struct specbinding *specpdl; extern struct specbinding *specpdl_ptr; -extern int specpdl_size; +extern EMACS_INT specpdl_size; extern EMACS_INT max_specpdl_size; @@ -3241,7 +3241,7 @@ EXFUN (Fmove_to_column, 2); extern double current_column (void); extern void invalidate_current_column (void); -extern int indented_beyond_p (int, int, double); +extern int indented_beyond_p (EMACS_INT, EMACS_INT, double); extern void syms_of_indent (void); /* Defined in frame.c */ diff -r eb608280bd3b -r e49fcbdc458f src/region-cache.c --- a/src/region-cache.c Fri Sep 24 20:04:26 2010 +0200 +++ b/src/region-cache.c Fri Sep 24 15:30:13 2010 -0400 @@ -788,9 +788,9 @@ EMACS_INT end_u = c->buffer_end - c->end_unchanged; fprintf (stderr, - "basis: %d..%d modified: %d..%d\n", - c->buffer_beg, c->buffer_end, - beg_u, end_u); + "basis: %ld..%ld modified: %ld..%ld\n", + (long)c->buffer_beg, (long)c->buffer_end, + (long)beg_u, (long)end_u); for (i = 0; i < c->cache_len; i++) { @@ -804,7 +804,7 @@ : (pos == end_u) ? '-' : ' '), stderr); - fprintf (stderr, "%d : %d\n", pos, BOUNDARY_VALUE (c, i)); + fprintf (stderr, "%ld : %d\n", (long)pos, BOUNDARY_VALUE (c, i)); } }