{

 History
 -------

 17/10/85 - this module created.
 18/10/85 - history tidied. (agh)
 21/10/85 - reformatted. (agh)
 21/10/85 - DiagnosticFile changed to DiagFile to avoid clash
            with DiagnosticHandler in module 6. (agh)

                                                                  }
{

			MODULE 29


		Diagnostic File Generation

								  }
program DiagFile;
  
#include "globals.x"
#include "impint.pf"

  procedure FlowPoint(SourceLine: Scalar);
    visible;
    
    begin
      if SourceLine > LastFlowLine
      then
        begin
          elinestart(SourceLine);
          LastFlowLine := SourceLine
        end
    end { FlowPoint };
  
  procedure FileAType(TheType: TypEntry);
    visible;
    
    begin  end;
  
  procedure FileId(Id, NextId: IdEntry);
    visible;
    
    begin  end;
  
  procedure InitDiagnostics;
    visible;
    
    begin
      LastFlowLine := 0
    end;
  
  procedure EndDiagnostics;
    visible;
    
    begin  end;
  
  begin 
  { end of module }
  end.