+ add a Flush method to TExeMap which is useful when debugging internal errors or crashes where the exemap instance has not yet been destroyed

git-svn-id: trunk@43358 -

compiler/ogmap.pas

@@ -40,6 +40,7 @@ interface
        public
          constructor Create(const s:string);
          destructor Destroy;override;
+         procedure Flush;
          procedure Add(const s:string);
          procedure AddHeader(const s:string);
          procedure AddCommonSymbolsHeader;
@@ -111,6 +112,12 @@ implementation
        end;
 
 
+     procedure TExeMap.Flush;
+       begin
+         System.Flush(t);
+       end;
+
+
      procedure TExeMap.Add(const s:string);
        begin
          writeln(t,s);