From 7e9eaf743d8ae2cec356a775a2bb426f4a5c2f8a Mon Sep 17 00:00:00 2001 From: Norman Ramsey Date: Fri, 22 Oct 2021 09:50:24 -0400 Subject: [PATCH] add a short comment on result type, `marshalCmmBlockBranch` --- asterius/src/Asterius/CodeGen.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/asterius/src/Asterius/CodeGen.hs b/asterius/src/Asterius/CodeGen.hs index e99ac19d..8a18106c 100644 --- a/asterius/src/Asterius/CodeGen.hs +++ b/asterius/src/Asterius/CodeGen.hs @@ -1561,6 +1561,8 @@ newtype NeedsUnreachableBlock = NeedsUnreachableBlock Bool marshalCmmBlockBranch :: GHC.CmmNode GHC.O GHC.C -> CodeGen ([Expression], Maybe Expression, [RelooperAddBranch], NeedsUnreachableBlock) + -- results: branch hwelpers, siwtch cond expr, branches, + marshalCmmBlockBranch instr = case instr of GHC.CmmBranch lbl -> do k <- marshalLabel lbl