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

* Fixed description of array type without index (open array)

Browse Source 
git-svn-id: trunk@7325 -
This commit is contained in:
michael 2007-05-13 17:44:00 +00:00
parent bb9de8f193
commit 2212c78609
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1115,7 +1115,10 @@ end;
function TPasArrayType.GetDeclaration (full : boolean) : string;
begin
Result:='Array['+IndexRange+'] of ';
Result:='Array';
If (IndexRange<>'') then
Result:=Result+'['+IndexRange+']';
Result:=Result+' of ';
If IsPacked then
Result := 'packed '+Result; // 12/04/04 Dave - Added
If Assigned(Eltype) then