Bläddra i källkod

Add missing generic/specialization parameter listing

git-svn-id: trunk@28728 -
pierre 10 år sedan
förälder
incheckning
fa8d44c523
1 ändrade filer med 13 tillägg och 0 borttagningar
  1. 13 0
      compiler/utils/ppuutils/ppudump.pp

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

@@ -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;