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

* Fix writing array types

Browse Source 
git-svn-id: trunk@46283 -
This commit is contained in:
michael 2020-08-06 07:26:47 +00:00
parent be0adf199d
commit 10c4e3f6fc
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

@ -4242,7 +4242,7 @@ begin
if GenericTemplateTypes<>nil then if GenericTemplateTypes<>nil then
Result:=Result+GenericTemplateTypesAsString(GenericTemplateTypes)+' = '+Result Result:=Result+GenericTemplateTypesAsString(GenericTemplateTypes)+' = '+Result
else else
Result:=Result+' = '+Result; Result:=SafeName+' = '+Result;
end; end;
If (IndexRange<>'') then If (IndexRange<>'') then
Result:=Result+'['+IndexRange+']'; Result:=Result+'['+IndexRange+']';