浏览代码

Add missing generic/specialization parameter listing

git-svn-id: trunk@28728 -
pierre 10 年之前
父节点
当前提交
fa8d44c523
共有 1 个文件被更改,包括 13 次插入0 次删除
  1. 13 0
      compiler/utils/ppuutils/ppudump.pp

+ 13 - 0
compiler/utils/ppuutils/ppudump.pp

@@ -1528,6 +1528,19 @@ begin
         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
     begin
       tokenbufsize:=ppufile.getlongint;