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

* Merging revisions r46283 from trunk:

Browse Source 
------------------------------------------------------------------------
    r46283 | michael | 2020-08-06 09:26:47 +0200 (Thu, 06 Aug 2020) | 1 line
    
    * Fix writing array types
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46609 -
This commit is contained in:
michael 2020-08-23 09:30:57 +00:00
parent 70cf4d95d7
commit ef2b7d9f99
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

@ -4184,7 +4184,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+']';