paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 12:09:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed parsing of spezialitions taking more than one argument

Browse Source 
git-svn-id: trunk@5311 -
This commit is contained in:
florian 2006-11-10 18:33:08 +00:00
parent a9980bf951
commit b0104f2ec8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ptype.pas
View File

@ -125,10 +125,9 @@ implementation
(ttypesym(sym).typedef.typ=undefineddef) then (ttypesym(sym).typedef.typ=undefineddef) then
begin begin
if not first then if not first then
begin consume(_COMMA)
consume(_COMMA); else
first:=false; first:=false;
end;
pt2:=factor(false); pt2:=factor(false);
if pt2.nodetype=typen then if pt2.nodetype=typen then
begin begin