eta357/Windows-12-Compiler
1
1
Fork 0
Code Issues Pull Requests Actions Packages Releases 1 Activity

Make pretty sizeof match parse

Browse Source
This commit is contained in:
Ethan Girouard
2025-08-31 20:37:34 -04:00
parent f82d5fbff7
commit b95b095dc8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Windows12/Ast.hs
View File

@@ -163,7 +163,7 @@ instance Pretty Expr where
pretty (Index arr idx) = parens (pretty arr) <> brackets (pretty idx) pretty (Index arr idx) = parens (pretty arr) <> brackets (pretty idx)
pretty (Member e m) = pretty e <> "." <> pretty m pretty (Member e m) = pretty e <> "." <> pretty m
pretty (Cast t e) = parens (pretty t) <> parens (pretty e) pretty (Cast t e) = parens (pretty t) <> parens (pretty e)
pretty (Sizeof t) = "sizeof" <> parens (pretty t) pretty (Sizeof t) = "sizeof " <> pretty t
pretty (StructInit s fields) = pretty s <+> lbrace <> line <> indent 4 (vsep (punctuate comma (map (\(n, e) -> pretty n <+> "=" <+> pretty e) fields))) <> line <> rbrace pretty (StructInit s fields) = pretty s <+> lbrace <> line <> indent 4 (vsep (punctuate comma (map (\(n, e) -> pretty n <+> "=" <+> pretty e) fields))) <> line <> rbrace
instance Pretty Stmt where instance Pretty Stmt where