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

fcl-passrc: fixed generic templates as string

Browse Source
This commit is contained in:
mattias 2025-02-03 14:06:10 +01:00
parent 3b5482b580
commit 83f9a94503
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1938,12 +1938,12 @@ begin
Result:=''; Result:='';
for i:=0 to List.Count-1 do for i:=0 to List.Count-1 do
begin begin
T:=TPasGenericTemplateType(List[i]);
if i>0 then if i>0 then
if length(T.Constraints)>0 then if length(T.Constraints)>0 then
Result:=Result+';' Result:=Result+';'
else else
Result:=Result+','; Result:=Result+',';
T:=TPasGenericTemplateType(List[i]);
Result:=Result+T.Name; Result:=Result+T.Name;
if length(T.Constraints)>0 then if length(T.Constraints)>0 then
begin begin