diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2022-03-10 10:50:21 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2022-03-10 10:50:21 +0000 |
commit | d175af836458d771660138715f0a2bde9f3e4ced (patch) | |
tree | e4c65269e90847c4cc9a781556ef8a999ea90928 /Build/source/texk/web2c/cwebdir/ctwill-mini.ch | |
parent | 84d765e78c8984e8911848e0ce62ec17dfef541e (diff) |
[CWEB] Make 'fall thru' comments active.
This is specific for GCC, but totally harmless for any other C compiler:
GCC accepts 'fall thru' comments from the CWEB sources with its option
'-Wimplicit-fallthrough=2', when we push these comments over to the
tangled C code.
git-svn-id: svn://tug.org/texlive/trunk@62584 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctwill-mini.ch')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-mini.ch | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch index e7725904503..0411aad1d06 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch @@ -1556,7 +1556,7 @@ Section 233--234. case end_translation: return; case identifier: case res_word: @<Output an identifier@>@; break; case section_code: @<Output a section name@>@; break; - case math_rel: out_str("\\MRL{"@q}@>); /* fall through */ + case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@> @.\\MRL@> case noop: case inserted: break; case cancel: case big_cancel: c=0; b=a; @@ -1578,11 +1578,11 @@ Section 233--234. if (a!=big_force) { out_str("\\1\\1"); goto reswitch; } - else dindent_pending=true; /* fall through */ + else dindent_pending=true; @=/* fall through */@> case indent: case outdent: case opt: case backup: case break_space: case force: case big_force: case preproc_line: @<Output a control, look ahead in case of line breaks, possibly |goto reswitch|@>@; break; - case quoted_char: out(*(cur_tok++)); /* fall through */ + case quoted_char: out(*(cur_tok++)); @=/* fall through */@> case qualifier: break; default: out(a); /* otherwise |a| is an ordinary character */ } @@ -1598,7 +1598,7 @@ Section 233--234. case end_translation: return; case identifier: case res_word: @<Output an identifier@>@; break; case section_code: @<Output a section name@>@; break; - case math_rel: out_str("\\MRL{"@q}@>); /* fall through */ + case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@> @.\\MRL@> case noop: case inserted: break; case cancel: case big_cancel: c=0; b=a; @@ -1620,11 +1620,11 @@ Section 233--234. if (a!=big_force) { out_str("\\1\\1"); goto reswitch; } - else dindent_pending=true; /* fall through */ + else dindent_pending=true; @=/* fall through */@> case indent: case outdent: case opt: case backup: case break_space: case force: case big_force: case preproc_line: @<Output a control, look ahead in case of line breaks, possibly |goto reswitch|@>@; break; - case quoted_char: out(*(cur_tok++)); /* fall through */ + case quoted_char: out(*(cur_tok++)); @=/* fall through */@> case qualifier: break; default: out(a); /* otherwise |a| is an ordinary character */ } @@ -1673,12 +1673,12 @@ Section 240. @x case ' ': case '\\': case '#': case '%': case '$': case '^': case '{': case '}': case '~': case '&': case '_': - out('\\'); /* falls through */ + out('\\'); @=/* falls through */@> @y case ' ': case '\\': case '#': case '%': @/ case '$': case '^': case '{': case '}': @/ case '~': case '&': case '_': @/ - out('\\'); /* falls through */ + out('\\'); @=/* falls through */@> @z Section 242. |