* ppudump: Proper tag for a source file in XML.

git-svn-id: trunk@24411 -

compiler/utils/ppuutils/ppuout.pp

@@ -184,6 +184,7 @@ type
     procedure WriteDef(Output: TPpuOutput); override;
   public
     FileTime: TDateTime;
+    constructor Create(AParent: TPpuContainerDef); override;
   end;
 
   TPpuProcOption = (poProcedure, poFunction, poConstructor, poDestructor, poOperator,
@@ -1078,6 +1079,12 @@ begin
   Output.WriteStr('Time', FormatDateTime('yyyy"-"mm"-"dd hh":"nn":"ss', FileTime));
 end;
 
+constructor TPpuSrcFile.Create(AParent: TPpuContainerDef);
+begin
+  inherited Create(AParent);
+  DefType:=dtFile;
+end;
+
 { TPpuOutput }
 
 procedure TPpuOutput.SetIndent(AValue: integer);