--- 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