+ write link pass 1 separator to omf obj output

git-svn-id: trunk@30415 -

compiler/ogomf.pas

@@ -147,6 +147,7 @@ implementation
         RawRecord: TOmfRawRecord;
         Header: TOmfRecord_THEADR;
         Translator_COMENT: TOmfRecord_COMENT;
+        LinkPassSeparator_COMENT: TOmfRecord_COMENT;
         LNamesRec: TOmfRecord_LNAMES;
         I: Integer;
         SegDef: TOmfRecord_SEGDEF;
@@ -214,6 +215,15 @@ implementation
             RawRecord.WriteTo(FWriter);
           end;
 
+        { write link pass separator }
+        LinkPassSeparator_COMENT:=TOmfRecord_COMENT.Create;
+        LinkPassSeparator_COMENT.CommentClass:=CC_LinkPassSeparator;
+        LinkPassSeparator_COMENT.CommentString:=#1;
+        LinkPassSeparator_COMENT.NoList:=True;
+        LinkPassSeparator_COMENT.EncodeTo(RawRecord);
+        RawRecord.WriteTo(FWriter);
+        LinkPassSeparator_COMENT.Free;
+
         RawRecord.Free;
         result:=true;
       end;