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

Add missing generic/specialization parameter listing

Browse Source 
git-svn-id: trunk@28728 -
This commit is contained in:
pierre 2014-10-01 12:56:51 +00:00
parent c3a58bf5a8
commit fa8d44c523
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1528,6 +1528,19 @@ begin
end; end;
end; end;
if [df_generic,df_specialization]*defoptions<>[] then
begin
nb:=ppufile.getlongint;
writeln([space,'has ',nb,' parameters']);
if nb>0 then
begin
for i:=0 to nb-1 do
begin
writeln([space,'parameter ',i,': ',ppufile.getstring]);
readderef(space);
end;
end;
end;
if df_generic in defoptions then if df_generic in defoptions then
begin begin
tokenbufsize:=ppufile.getlongint; tokenbufsize:=ppufile.getlongint;