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

* Support for file type parsing (part 2)

Browse Source 
git-svn-id: trunk@3853 -
This commit is contained in:
michael 2006-06-12 20:08:12 +00:00
parent 28ce91de92
commit 9c13368393
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fcl/passrc/pparser.pp
View File

@ -546,10 +546,7 @@ procedure TPasParser.ParseFileType(Element: TPasFileType);
begin
NextToken;
If CurToken=tkOf then
begin
NextToken;
Element.ElType := ParseType(nil);
end;
end;
function TPasParser.ParseExpression: String;