* ppudump: Output "MethodPtr" attribute for procedural types.

git-svn-id: trunk@24504 -

compiler/utils/ppuutils/ppudump.pp

@@ -1720,6 +1720,8 @@ begin
      if po_overridingmethod in procoptions then Include(ProcDef.Options, poOverriding);
      if po_overload in procoptions then Include(ProcDef.Options, poOverload);
      if po_inline in procoptions then Include(ProcDef.Options, poInline);
+     if (po_methodpointer in procoptions) and (ProcDef.DefType = dtProcType) then
+       TPpuProcTypeDef(ProcDef).MethodPtr:=True;
 
      write([space,'          Options : ']);
      first:=true;

compiler/utils/ppuutils/ppuout.pp

@@ -204,7 +204,10 @@ type
 
   { TPpuProcTypeDef }
   TPpuProcTypeDef = class(TPpuProcDef)
+  protected
+    procedure BeforeWriteItems(Output: TPpuOutput); override;
   public
+    MethodPtr: boolean;
     constructor Create(AParent: TPpuContainerDef); override;
   end;
 
@@ -1033,6 +1036,13 @@ end;
 
 { TPpuProcTypeDef }
 
+procedure TPpuProcTypeDef.BeforeWriteItems(Output: TPpuOutput);
+begin
+  inherited BeforeWriteItems(Output);
+  if MethodPtr then
+    Output.WriteBool('MethodPtr', MethodPtr);
+end;
+
 constructor TPpuProcTypeDef.Create(AParent: TPpuContainerDef);
 begin
   inherited Create(AParent);