summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2022-03-10 10:50:21 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2022-03-10 10:50:21 +0000
commitd175af836458d771660138715f0a2bde9f3e4ced (patch)
treee4c65269e90847c4cc9a781556ef8a999ea90928 /Build/source/texk/web2c/cwebdir/ctwill-mini.ch
parent84d765e78c8984e8911848e0ce62ec17dfef541e (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.ch16
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.