From b8876a37dc07fcebc9e7b179168db86a33f27a91 Mon Sep 17 00:00:00 2001 From: "Kirill A. Korinsky" Date: Thu, 21 Dec 2023 18:12:53 +0100 Subject: [PATCH 3/5] make moder clang happy --- gcl/o/print.d | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/gcl/o/print.d b/gcl/o/print.d index 569d07eb5..1d944b746 100644 --- a/gcl/o/print.d +++ b/gcl/o/print.d @@ -579,6 +579,7 @@ flush_queue(int force,struct printContext *p) { if (flush_queue_indent(force,p)) return; break; case CURRENT: case BLOCK: + { short sh=p->b.p_queue[mod(p->b.p_qh+1)]; if (p->b.p_qc<2) return; sh<<=1;sh>>=1; @@ -587,6 +588,7 @@ flush_queue(int force,struct printContext *p) { p->b.p_indent_stack[p->b.p_isp] = sh; flush_queue_flush(force,2,p); break; + } case LINE:case SECTION:case LINE_RELATIVE:case SECTION_RELATIVE: if (p->b.p_qc<3) return; flush_queue_flush(force,3,p); @@ -1680,6 +1682,7 @@ write_object(object x,int level) { break; case t_structure: + { object y=structure_to_list(x); if (PRINTcircle) if (write_sharp_eq(x,FALSE)==DONE) return; @@ -1707,6 +1710,7 @@ write_object(object x,int level) { break; } break; + } case t_readtable: write_unreadable_str(x,"#