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

webidl: dynarray: do not prepend duplicate T

Browse Source
This commit is contained in:
mattias 2022-06-23 16:30:40 +02:00
parent a9ec4b3767
commit 943272b6f2
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -873,7 +873,9 @@ begin
else
begin
Result:=GetTypeName(TIDLSequenceTypeDefDefinition(aTypeDef).ElementType,ForTypeDef);
Result:='T'+Result+'DynArray';
if Result[1]<>'T' then
Result:='T'+Result;
Result:=Result+'DynArray';
end
end
else
@ -1088,11 +1090,11 @@ begin
Indent;
AddLn('function GetValue(aKey: %s): %s; external name ''[]'';',[KT,VT]);
AddLn('procedure SetValue(aKey: %s; const AValue: %s); external name ''[]'';',[KT,VT]);
undent;
Undent;
AddLn('public');
Indent;
AddLn('property Values[Name: %s]: %s read GetProperties write SetProperties; default;',[KT,VT]);
undent;
Undent;
AddLn('end;');
end;
@ -1576,7 +1578,7 @@ begin
if D Is TIDLInterfaceDefinition then
begin
CN:=ClassPrefix+D.Name+ClassSuffix;
Result:=CreatePasname(CN,D);
Result:=CreatePasName(CN,D);
D.Data:=Result;
AllocatePasNames((D as TIDLInterfaceDefinition).Members,D.Name);
end
@ -1585,7 +1587,7 @@ begin
CN:=D.Name;
if coDictionaryAsClass in BaseOptions then
CN:=ClassPrefix+CN+ClassSuffix;
Result:=CreatePasname(EscapeKeyWord(CN),D);
Result:=CreatePasName(EscapeKeyWord(CN),D);
D.Data:=Result;
AllocatePasNames((D as TIDLDictionaryDefinition).Members,D.Name);
end