# HG changeset patch # User alfadur # Date 1542590504 -10800 # Node ID 27ae2d3d04b61caa1dee3e38131498897a46e440 # Parent 5b454a442048a863fcbd3a67533ff37ad275dfb2 seems like it's either this or swap indexing order everywhere diff -r 5b454a442048 -r 27ae2d3d04b6 tools/pas2c/Pas2C.hs --- 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