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

* Patch from Simone Tacconi to fix alias type getdeclaration. Fixes issue #41115

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-28 14:48:10 +01:00
parent 5b3b041b96
commit 33c1e3e537
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-passrc/src/paswrite.pp
View File

@ -891,6 +891,18 @@ begin
IncIndent; IncIndent;
IncDeclSectionLevel; IncDeclSectionLevel;
WriteMembers(AType.Members,visPublic); WriteMembers(AType.Members,visPublic);
if AType.Variants<>nil then
begin
temp:='case ';
if (AType.VariantEl is TPasVariable) then
temp:=Temp+AType.VariantEl.Name+' : '+TPasVariable(AType.VariantEl).VarType.Name
else if (AType.VariantEl<>Nil) then
temp:=temp+AType.VariantEl.Name;
temp:=temp+' of';
AddLn(Temp);
For I:=0 to AType.Variants.Count-1 do
AddLn(TPasVariant(AType.Variants[i]).GetDeclaration(True));
end;
DecDeclSectionLevel; DecDeclSectionLevel;
DecIndent; DecIndent;
Add('end'); Add('end');