--- a/tools/pas2c/Pas2C.hs	Sun Jan 05 00:46:26 2014 +0400
+++ b/tools/pas2c/Pas2C.hs	Sun Jan 05 10:54:03 2014 +0400
@@ -656,7 +656,9 @@
 initExpr2C' (InitRecord fields) = do
     (fs :: [Doc]) <- mapM (\(Identifier a _, b) -> liftM (text "." <> text a <+> equals <+>) $ initExpr2C b) fields
     return $ lbrace $+$ (nest 4 . vcat . punctuate comma $ fs) $+$ rbrace
-initExpr2C' (InitArray [value]) = initExpr2C value
+--initExpr2C' (InitArray [InitRecord fields]) = do
+--    e <- initExpr2C $ InitRecord fields
+--    return $ braces $ e
 initExpr2C' r@(InitRange (Range i@(Identifier i' _))) = do
     id2C IOLookup i
     t <- gets lastType