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

* Patch from Simone Tacconi to fix set getdeclaration. Fixes issue #41107

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-28 14:29:29 +01:00
parent c89b6a5908
commit cbd9f716c2
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-passrc/src/pastree.pp
View File

@ -4463,6 +4463,8 @@ begin
end;
function TPasArrayType.GetDeclaration (full : boolean) : TPasTreeString;
var
i : Integer;
begin
Result:='Array';
if Full then
@ -4473,12 +4475,23 @@ begin
Result:=SafeName+' = '+Result;
end;
If (IndexRange<>'') then
Result:=Result+'['+IndexRange+']';
Result:=Result+'['+IndexRange+']'
else if Length(Ranges)>0 then
begin
Result:=Result+'[';
for i:=0 to Length(Ranges)-1 do
begin
if i>0 then
Result:=Result+',';
Result:=Result+Ranges[i].GetDeclaration(True);
end;
Result:=Result+']';
end;
Result:=Result+' of ';
If IsPacked then
Result := 'packed '+Result; // 12/04/04 Dave - Added
If Assigned(Eltype) then
Result:=Result+ElType.SafeName
Result:=Result+ElType.GetDeclaration(ElType is TPasUnresolvedTypeRef)
else
Result:=Result+'const';
end;