Unbreak pas2c build
authorunC0Rr
Tue, 22 Aug 2023 22:19:28 +0200
changeset 16005 4d682779bd29
parent 16003 8bb07b0f50ca
child 16006 f81fe8250ed9
Unbreak pas2c build
tools/pas2c/Pas2C.hs
tools/pas2c/PascalBasics.hs
--- a/tools/pas2c/Pas2C.hs	Thu Aug 10 20:48:54 2023 -0400
+++ b/tools/pas2c/Pas2C.hs	Tue Aug 22 22:19:28 2023 +0200
@@ -715,6 +715,9 @@
     liftM (parens . (<> text " + 1")) $ initExpr2C' e
 initExpr2C' (BuiltInFunction "pred" [e]) = 
     liftM (parens . (<> text " - 1")) $ initExpr2C' e
+initExpr2C' (BuiltInFunction "round" [e]) = do
+    e <- initExpr2C' e
+    return $ text "(int)" <> parens e
 initExpr2C' b@(BuiltInFunction _ _) = error $ show b
 initExpr2C' (InitTypeCast t' i) = do
     e <- initExpr2C i
--- a/tools/pas2c/PascalBasics.hs	Thu Aug 10 20:48:54 2023 -0400
+++ b/tools/pas2c/PascalBasics.hs	Tue Aug 22 22:19:28 2023 +0200
@@ -17,7 +17,7 @@
 string' = void . string
 
 builtin :: [String]
-builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length", "copy"]
+builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length", "copy", "round"]
 
 pascalLanguageDef :: GenLanguageDef String u Identity
 pascalLanguageDef