paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 20:49:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ppudump: Fixed json and xml output of inline types in array declaration.

Browse Source 
git-svn-id: trunk@26277 -
This commit is contained in:
yury 2013-12-24 12:32:55 +00:00
parent af49e50a3c
commit eea69a2947
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/utils/ppuutils/ppudump.pp
View File

@ -2824,7 +2824,7 @@ begin
writeln([space,' Range : ',arrdef.RangeLow,' to ',arrdef.RangeHigh]);
write ([space,' Options : ']);
readarraydefoptions(arrdef);
readsymtable('symbols');
readsymtable('symbols', arrdef);
end;
ibprocdef :

3
compiler/utils/ppuutils/ppuout.pp
View File

@ -319,7 +319,7 @@ type
TPpuArrayOptions = set of TPpuArrayOption;
{ TPpuArrayDef }
TPpuArrayDef = class(TPpuDef)
TPpuArrayDef = class(TPpuContainerDef)
protected
procedure WriteDef(Output: TPpuOutput); override;
public
@ -760,6 +760,7 @@ end;
constructor TPpuArrayDef.Create(AParent: TPpuContainerDef);
begin
inherited Create(AParent);
ItemsName:='Types';
DefType:=dtArray;
ElType:=TPpuRef.Create;
RangeType:=TPpuRef.Create;