diff --git a/src/Juvix/Compiler/Asm/Pipeline.hs b/src/Juvix/Compiler/Asm/Pipeline.hs index 9e4f7eb510..8603795415 100644 --- a/src/Juvix/Compiler/Asm/Pipeline.hs +++ b/src/Juvix/Compiler/Asm/Pipeline.hs @@ -15,7 +15,7 @@ import Juvix.Compiler.Pipeline.EntryPoint -- | Perform transformations on JuvixAsm necessary before the translation to -- JuvixReg toReg' :: (Members '[Error AsmError, Reader Options] r) => InfoTable -> Sem r InfoTable -toReg' = validate >=> computeStackUsage >=> computePrealloc +toReg' = validate >=> filterUnreachable >=> computeStackUsage >=> computePrealloc toReg :: (Members '[Error JuvixError, Reader EntryPoint] r) => InfoTable -> Sem r InfoTable toReg = mapReader fromEntryPoint . mapError (JuvixError @AsmError) . toReg'