From 4c9206330167bcbc353eb066e3fc81b97d698097 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Jun 1997 00:33:39 +0000 Subject: [PATCH] (scan_sexps_forward): Split up a complex if-test. --- src/syntax.c | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) diff --git a/src/syntax.c b/src/syntax.c index 0df8851c0bd..4a60e1e0267 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -2414,12 +2414,10 @@ scan_sexps_forward (stateptr, from, end, targetdepth, UPDATE_SYNTAX_TABLE_FORWARD (from); code = SYNTAX (FETCH_CHAR (from)); INC_FROM; + if (code == Scomment) state.comstr_start = prev_from; - - else if (code == Scomment_fence - || (from < end && SYNTAX_COMSTART_FIRST (FETCH_CHAR (prev_from)) - && SYNTAX_COMSTART_SECOND (FETCH_CHAR (from)))) + else if (code == Scomment_fence) { /* Record the comment style we have entered so that only the comment-end sequence of the same style actually @@ -2431,6 +2429,22 @@ scan_sexps_forward (stateptr, from, end, targetdepth, if (code != Scomment_fence) INC_FROM; code = Scomment; } + else if (from < end) + if (SYNTAX_COMSTART_FIRST (FETCH_CHAR (prev_from))) + if (SYNTAX_COMSTART_SECOND (FETCH_CHAR (from))) + /* Duplicate code to avoid a very complex if-expression + which causes trouble for the SGI compiler. */ + { + /* Record the comment style we have entered so that only + the comment-end sequence of the same style actually + terminates the comment section. */ + state.comstyle = ( code == Scomment_fence + ? ST_COMMENT_STYLE + : SYNTAX_COMMENT_STYLE (FETCH_CHAR (from))); + state.comstr_start = prev_from; + if (code != Scomment_fence) INC_FROM; + code = Scomment; + } if (SYNTAX_PREFIX (FETCH_CHAR (prev_from))) continue; -- 2.39.2