# HG changeset patch # User Andreas Schwab # Date 1216579066 0 # Node ID e39a36c3dcc37a706bd742288b5d116344e98e87 # Parent f8fd215348484efc3a0d88f54a814f22e013fea1 (find_start_pos, find_start_value) (find_start_value_byte, find_start_begv, find_defun_start) (back_comment, scan_sexps_forward): Use EMACS_INT for buffer positions. diff -r f8fd21534848 -r e39a36c3dcc3 src/ChangeLog --- a/src/ChangeLog Sun Jul 20 14:14:52 2008 +0000 +++ b/src/ChangeLog Sun Jul 20 18:37:46 2008 +0000 @@ -1,3 +1,10 @@ +2008-07-20 Andreas Schwab + + * syntax.c (find_start_pos, find_start_value) + (find_start_value_byte, find_start_begv, find_defun_start) + (back_comment, scan_sexps_forward): Use EMACS_INT for buffer + positions. + 2008-07-20 Dan Nicolaescu * s/sol2-3.h: Insert contents of s/sol2.h. diff -r f8fd21534848 -r e39a36c3dcc3 src/syntax.c --- a/src/syntax.c Sun Jul 20 14:14:52 2008 +0000 +++ b/src/syntax.c Sun Jul 20 18:37:46 2008 +0000 @@ -87,15 +87,15 @@ find_start_begv is the BEGV value when it was found. find_start_modiff is the value of MODIFF when it was found. */ -static int find_start_pos; -static int find_start_value; -static int find_start_value_byte; +static EMACS_INT find_start_pos; +static EMACS_INT find_start_value; +static EMACS_INT find_start_value_byte; static struct buffer *find_start_buffer; -static int find_start_begv; +static EMACS_INT find_start_begv; static int find_start_modiff; -static int find_defun_start P_ ((int, int)); +static int find_defun_start P_ ((EMACS_INT, EMACS_INT)); static int back_comment P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int, int, EMACS_INT *, EMACS_INT *)); static int char_quoted P_ ((int, int)); @@ -103,7 +103,7 @@ static Lisp_Object skip_syntaxes P_ ((int, Lisp_Object, Lisp_Object)); static Lisp_Object scan_lists P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int)); static void scan_sexps_forward P_ ((struct lisp_parse_state *, - int, int, int, int, + EMACS_INT, EMACS_INT, EMACS_INT, int, int, Lisp_Object, int)); static int in_classes P_ ((int, Lisp_Object)); @@ -374,9 +374,9 @@ static int find_defun_start (pos, pos_byte) - int pos, pos_byte; + EMACS_INT pos, pos_byte; { - int opoint = PT, opoint_byte = PT_BYTE; + EMACS_INT opoint = PT, opoint_byte = PT_BYTE; if (!open_paren_in_column_0_is_defun_start) { @@ -505,14 +505,14 @@ inside another comment). Test case: { a (* b } c (* d *) */ int comment_lossage = 0; - int comment_end = from; - int comment_end_byte = from_byte; - int comstart_pos = 0; - int comstart_byte; + EMACS_INT comment_end = from; + EMACS_INT comment_end_byte = from_byte; + EMACS_INT comstart_pos = 0; + EMACS_INT comstart_byte; /* Place where the containing defun starts, or 0 if we didn't come across it yet. */ - int defun_start = 0; - int defun_start_byte = 0; + EMACS_INT defun_start = 0; + EMACS_INT defun_start_byte = 0; register enum syntaxcode code; int nesting = 1; /* current comment nesting */ int c; @@ -2921,9 +2921,9 @@ scan_sexps_forward (stateptr, from, from_byte, end, targetdepth, stopbefore, oldstate, commentstop) struct lisp_parse_state *stateptr; - register int from; - int from_byte; - int end, targetdepth, stopbefore; + register EMACS_INT from; + EMACS_INT from_byte, end; + int targetdepth, stopbefore; Lisp_Object oldstate; int commentstop; { @@ -2942,8 +2942,8 @@ int mindepth; /* Lowest DEPTH value seen. */ int start_quoted = 0; /* Nonzero means starting after a char quote */ Lisp_Object tem; - int prev_from; /* Keep one character before FROM. */ - int prev_from_byte; + EMACS_INT prev_from; /* Keep one character before FROM. */ + EMACS_INT prev_from_byte; int prev_from_syntax; int boundary_stop = commentstop == -1; int nofence;