From 1f7ed2ee02222108684cfde8078e7a182f734a61 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 30 Aug 2024 22:45:46 +0200 Subject: WIP Build1 --- src/AST/Pretty.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/AST/Pretty.hs') diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 3473131..ba1b756 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -136,6 +136,10 @@ ppExpr' d val = \case EConst _ ty v -> return $ showString $ case ty of STI32 -> show v ; STI64 -> show v ; STF32 -> show v ; STF64 -> show v ; STBool -> show v + EIdx0 _ e -> do + e' <- ppExpr' 11 val e + return $ showParen (d > 10) $ showString "idx0 " . e' + EIdx1 _ a b -> do a' <- ppExpr' 9 val a b' <- ppExpr' 9 val b -- cgit v1.2.3-70-g09d2