paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 20:47:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ write link pass 1 separator to omf obj output

Browse Source 
git-svn-id: trunk@30415 -
This commit is contained in:
nickysn 2015-04-04 00:14:34 +00:00
parent 4fc55f97fc
commit ef9c15c165
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogomf.pas
View File

@ -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;