author | alfadur |
Mon, 19 Nov 2018 09:37:53 +0300 | |
changeset 14242 | 81fba21495a5 |
parent 14241 | 0f8b647ea317 |
child 14243 | 91a3aad23297 |
child 14247 | 693b2e48a887 |
--- a/tools/pas2c/Pas2C.hs Mon Nov 19 09:29:37 2018 +0300 +++ b/tools/pas2c/Pas2C.hs Mon Nov 19 09:37:53 2018 +0300 @@ -779,7 +779,7 @@ lt <- gets lastType r1' <- initExpr2C (InitRange r1) r2' <- initExpr2C (InitRange r2) - return $ \i -> t' i <> brackets r2' <> brackets r1' + return $ \i -> t' i <> brackets r1' <> brackets r2' type2C' (ArrayDecl (Just r) t) = do t' <- type2C t lt <- gets lastType