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

---
 il.fun | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'il.fun')

diff --git a/il.fun b/il.fun
index 9f8c2b7..416f4b0 100644
--- a/il.fun
+++ b/il.fun
@@ -1202,7 +1202,7 @@ functor IL(P: PARSER) = struct
     | P.StmtDoWhile pair => convDoWhile ctx pair
     | P.StmtBreak => convBreakOrCont true ctx
     | P.StmtContinue => convBreakOrCont false ctx
-    | P.StmtNone => raise Unreachable
+    | P.StmtNone => ()
 
   val Pl = fn z =>
   let
@@ -1382,7 +1382,7 @@ functor IL(P: PARSER) = struct
   let
     val c = if class = VR4 then "w4" else "w8"
 
-    val () = printf `"%" I idx `" " `c
+    val () = printf `"%" Ip 4 idx `" " `c
           `": defs = " Plist i defs (", ", true, 0)
           `", uses = " Plist i use (", ", true, 0) %
   in
-- 
cgit v1.2.3