diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-09 01:17:24 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-09 01:17:24 +0200 |
| commit | 9bc877d781b988768c79d40a0f6a7055e9ad14e7 (patch) | |
| tree | 72ea857d9df1a9dc179e82e1809220013a995606 /il.fun | |
| parent | ffee5da4dab26c8500add63da540ee252545370f (diff) | |
Register map
Diffstat (limited to 'il.fun')
| -rw-r--r-- | il.fun | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |