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

* Fix package parsing

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-24 09:19:17 +02:00
parent b313a66a47
commit 7fe602ebb0
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4218,15 +4218,22 @@ procedure TPasParser.ParseRequires(ASection: TPasPackageSection);
var
Pck : TPasRequiredPackage;
PckPos : TPasSourcePos;
N : String;
begin
repeat
ExpectIdentifier([tkPackage]);
N:='';
PckPos:=CurSourcePos;
Pck:=TPasRequiredPackage(Engine.CreateElement(TPasRequiredPackage,CurtokenString,aSection,visPublic,PckPos));
Repeat
ExpectIdentifier([tkPackage]);
if N<>'' then
N:=N+'.';
N:=N+CurtokenString;
NextToken;
until (CurToken in [tkSemicolon,tkComma]);
Pck:=TPasRequiredPackage(Engine.CreateElement(TPasRequiredPackage,N,aSection,visPublic,PckPos));
aSection.Requires.Add(Pck);
NextToken;
until CurToken=tkSemicolon;
until (CurToken=tkSemicolon);
end;
// On Entry, current token is contains.