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

fcl-passrc: do not allocate a temp list

Browse Source
This commit is contained in:
mattias 2022-03-23 15:08:42 +01:00
parent 35fd79ca52
commit f50e6dfe8e
1 changed files with 32 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7379,7 +7379,7 @@ begin
for i:=OldCount to ARec.Members.Count-1 do
begin
CurEl:=TPasElement(ARec.Members[i]);
if CurEl.ClassType=TPasAttributes then continue;
if CurEl.ClassType<>TPasVariable then continue;
if isClass then
With TPasVariable(CurEl) do
VarModifiers:=VarModifiers + [vmClass];
@ -7457,14 +7457,11 @@ begin
for i:=OldCount to ARec.Members.Count-1 do
begin
CurEl:=TPasElement(ARec.Members[i]);
if CurEl.ClassType=TPasAttributes then continue;
if CurEl.ClassType=TPasVariable then
begin
if isClass then
With TPasVariable(CurEl) do
VarModifiers:=VarModifiers + [vmClass];
Engine.FinishScope(stDeclaration,TPasVariable(CurEl));
end;
if CurEl.ClassType<>TPasVariable then continue;
if isClass then
With TPasVariable(CurEl) do
VarModifiers:=VarModifiers + [vmClass];
Engine.FinishScope(stDeclaration,TPasVariable(CurEl));
end;
end;
tkSquaredBraceOpen:
@ -7610,43 +7607,37 @@ procedure TPasParser.ParseClassFields(AType: TPasClassType;
const AVisibility: TPasMemberVisibility; IsClassField: Boolean);
Var
VarList: TFPList;
Element: TPasElement;
I : Integer;
I , OldCount: Integer;
isStatic : Boolean;
VarEl: TPasVariable;
Members: TFPList;
begin
VarList := TFPList.Create;
try
ParseInlineVarDecl(AType, VarList, AVisibility, False);
if CurToken=tkSemicolon then
begin
NextToken;
isStatic:=CurTokenIsIdentifier('static');
if isStatic then
ExpectToken(tkSemicolon)
else
UngetToken;
end;
for i := 0 to VarList.Count - 1 do
begin
Element := TPasElement(VarList[i]);
Element.Visibility := AVisibility;
AType.Members.Add(Element);
if (Element is TPasVariable) then
begin
VarEl:=TPasVariable(Element);
if IsClassField then
Include(VarEl.VarModifiers,vmClass);
if isStatic then
Include(VarEl.VarModifiers,vmStatic);
Engine.FinishScope(stDeclaration,VarEl);
end;
end;
finally
VarList.Free;
end;
Members:=AType.Members;
OldCount:=Members.Count;
ParseInlineVarDecl(AType, Members, AVisibility, False);
if CurToken=tkSemicolon then
begin
NextToken;
isStatic:=CurTokenIsIdentifier('static');
if isStatic then
ExpectToken(tkSemicolon)
else
UngetToken;
end;
for i := OldCount to Members.Count - 1 do
begin
Element := TPasElement(Members[i]);
Element.Visibility := AVisibility;
if Element.ClassType<>TPasVariable then continue;
VarEl:=TPasVariable(Element);
if IsClassField then
Include(VarEl.VarModifiers,vmClass);
if isStatic then
Include(VarEl.VarModifiers,vmStatic);
Engine.FinishScope(stDeclaration,VarEl);
end;
end;
procedure TPasParser.ParseMembersLocalTypes(AType: TPasMembersType;