* patch from Dmitry for "file of integer" like syntax, mantis 16673

git-svn-id: trunk@15729 -
2025-04-10 07:08:56 +02:00 · 2010-08-06 16:29:31 +00:00 · 2010-08-06 16:29:31 +00:00 · b10b49efda
commit b10b49efda
parent 2e8b8fa54e
1 changed files with 1 additions and 0 deletions
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@ -490,6 +490,7 @@ begin
    tkFile:
      begin
        Result := TPasFileType(CreateElement(TPasFileType, '', Parent));
+        ParseFileType(TPasFileType(Result));
      end;
    tkArray:
      begin