From 9bc877d781b988768c79d40a0f6a7055e9ad14e7 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Sat, 9 Aug 2025 01:17:24 +0200
Subject: Register map

---
 parser.fun | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.fun')

diff --git a/parser.fun b/parser.fun
index ae5f2e3..d49f895 100644
--- a/parser.fun
+++ b/parser.fun
@@ -3781,7 +3781,7 @@ functor Parser(structure Tree: TREE; structure P: PPC;
         Printf out `"return " Popt pea ea `";" %
     | pstmt' _ StmtBreak out = Printf out `"break;" %
     | pstmt' _ StmtContinue out = Printf out `"continue;" %
-    | pstmt' _ StmtNone _ = raise Unreachable
+    | pstmt' _ StmtNone out =  Printf out `";" %
 
   and pCompBody off (S as (StmtCompound _)) out =
     Printf out A2 pstmt' (off - 1) S %
-- 
cgit v1.2.3