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

* PAckage name can contain package keyword

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-22 20:32:41 +02:00
parent b245f2deb1
commit 40c386d6bc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3612,7 +3612,7 @@ begin
NextToken;
while CurToken = tkDot do
begin
ExpectIdentifier;
ExpectIdentifier([tkPackage]);
N := N + '.' + CurTokenString;
NextToken;
end;
@ -4158,7 +4158,7 @@ begin
{$IFDEF VerbosePasParserWriteln}
writeln('TPasParser.AddUseUnit AUnitName=',AUnitName,' CurModule.Name=',CurModule.Name);
{$ENDIF VerbosePasParserWriteln}
if CompareText(AUnitName,CurModule.Name)=0 then
if (CompareText(AUnitName,CurModule.Name)=0) and not CurModule.InheritsFrom(TPasDynamicPackage) then
begin
if CompareText(AUnitName,'System')=0 then
exit; // for compatibility ignore implicit use of system in system
@ -4221,7 +4221,7 @@ var
begin
repeat
ExpectIdentifier();
ExpectIdentifier([tkPackage]);
PckPos:=CurSourcePos;
Pck:=TPasRequiredPackage(Engine.CreateElement(TPasRequiredPackage,CurtokenString,aSection,visPublic,PckPos));
aSection.Requires.Add(Pck);