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

* Fix writing of union types

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-12 17:58:59 +02:00
parent b0d61558e3
commit 4cdabbb4c6
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/webidl/src/webidltopas.pp
View File

@ -1225,7 +1225,7 @@ end;
procedure TBaseWebIDLToPas.WriteUnionDef(aDef: TIDLUnionTypeDefDefinition);
Var
S: UTF8String;
aLine,S: UTF8String;
D: TIDLDefinition;
begin
S:='';
@ -1236,7 +1236,10 @@ begin
S:=S+(D as TIDLTypeDefDefinition).TypeName;
end;
Comment('Union of '+S);
AddLn(GetName(aDef)+' = '+GetPascalTypeName('any')+';');
aLine:=GetName(aDef)+' = '+GetPascalTypeName('any')+';';
if aLine = 'Variant = Variant;' then
Writeln('Oh-oh');
AddLn(aLine);
end;
@ -1917,6 +1920,14 @@ begin
Result:=CreatePasData(EscapeKeyWord(CN),D,true);
D.Data:=Result;
AllocatePasNames((D as TIDLDictionaryDefinition).Members,D.Name);
end
else if D Is TIDLDictionaryMemberDefinition then
begin
CN:=StringReplace(CN,'-','_',[rfReplaceAll]);
Result:=CreatePasData(EscapeKeyWord(CN),D,true);
D.Data:=Result;
AllocatePasName((D as TIDLDictionaryMemberDefinition).MemberType,ParentName+'_'+D.Name);
end
else if D Is TIDLSequenceTypeDefDefinition then
begin
@ -1939,7 +1950,11 @@ begin
end
else if D Is TIDLUnionTypeDefDefinition then
begin
CN:=GetTypeName(TIDLUnionTypeDefDefinition(D));
// This happens when there is an inline type declaration in a function definition.
if CN='' then
CN:=TypePrefix+ParentName+'_Type'
else
CN:=TypePrefix+CN;
sDef:=FindGlobalDef(CN);
if (SDef=Nil) or (sDef.Data=Nil) then
begin