From de272e0309bc1739f13cc8271a2f94bcde7ba23c Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Fri, 19 Jan 2007 21:36:00 +0000 Subject: 23115: ";|" at end of case clause causes later patterns to be tested --- Src/text.c | 28 ++++++++++++++++++++++++++-- 1 file changed, 26 insertions(+), 2 deletions(-) (limited to 'Src/text.c') diff --git a/Src/text.c b/Src/text.c index 0079e9fea..181fea083 100644 --- a/Src/text.c +++ b/Src/text.c @@ -537,7 +537,19 @@ gettext2(Estate state) } } else if (state->pc < s->u._case.end) { tindent--; - taddstr(WC_CASE_TYPE(code) == WC_CASE_OR ? " ;;" : ";&"); + switch (WC_CASE_TYPE(code)) { + case WC_CASE_OR: + taddstr(" ;;"); + break; + + case WC_CASE_AND: + taddstr(";&"); + break; + + default: + taddstr(";|"); + break; + } if (tnewlins) taddnl(); else @@ -553,7 +565,19 @@ gettext2(Estate state) s->u._case.end); } else { tindent--; - taddstr(WC_CASE_TYPE(code) == WC_CASE_OR ? " ;;" : ";&"); + switch (WC_CASE_TYPE(code)) { + case WC_CASE_OR: + taddstr(" ;;"); + break; + + case WC_CASE_AND: + taddstr(";&"); + break; + + default: + taddstr(";|"); + break; + } tindent--; if (tnewlins) taddnl(); -- cgit 1.4.1