tools/pas2c/Pas2C.hs
changeset 14234 27ae2d3d04b6
parent 14228 b01770d42517
child 14235 3a9e4f35aa68
--- a/tools/pas2c/Pas2C.hs	Mon Nov 19 01:10:27 2018 +0100
+++ b/tools/pas2c/Pas2C.hs	Mon Nov 19 04:21:44 2018 +0300
@@ -779,7 +779,7 @@
         lt <- gets lastType
         r1' <- initExpr2C (InitRange r1)
         r2' <- initExpr2C (InitRange r2)
-        return $ \i -> t' i <> brackets r1' <> brackets r2'
+        return $ \i -> t' i <> brackets r2' <> brackets r1'
     type2C' (ArrayDecl (Just r) t) = do
         t' <- type2C t
         lt <- gets lastType