From b828529b24e149ed4129cbbf89b34d95f068b8de Mon Sep 17 00:00:00 2001
From: "J. Gareth \"Curious Kit\" Moreton" <gareth@moreton-family.com>
Date: Fri, 3 May 2024 10:24:54 +0100
Subject: [PATCH]   * Block nodes are now marked as strippable when created
 from "begin" statements

---
 compiler/pstatmnt.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas
index 9a89dd6169..551dedc65e 100644
--- a/compiler/pstatmnt.pas
+++ b/compiler/pstatmnt.pas
@@ -1387,7 +1387,10 @@ implementation
                   end;
              end;
            _BEGIN :
-             code:=statement_block(_BEGIN);
+             begin
+               code:=statement_block(_BEGIN);
+               Include(TBlockNode(code).blocknodeflags, bnf_strippable);
+             end;
            _IF :
              code:=if_statement;
            _CASE :