paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:50:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix some minor sideeffect introduced by r15729. File without "of integer" must remain working.

Browse Source 
git-svn-id: trunk@15743 -
This commit is contained in:
marco 2010-08-08 12:44:11 +00:00
parent 99aece6230
commit 72f53aacd8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pparser.pp
View File

@ -651,7 +651,9 @@ procedure TPasParser.ParseFileType(Element: TPasFileType);
begin begin
NextToken; NextToken;
If CurToken=tkOf then If CurToken=tkOf then
Element.ElType := ParseType(nil); Element.ElType := ParseType(nil)
else
ungettoken;
end; end;
function TPasParser.isEndOfExp:Boolean; function TPasParser.isEndOfExp:Boolean;