diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 23:11:25 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 23:11:25 +0000 |
| commit | 0e1a4cb16bee5fdda5dcaf100dcd5dac32559da9 (patch) | |
| tree | d8a8d66ecf48859a1279f198cb122e3917d1dc10 | |
| parent | ebac59fded74cb6c40607c90c815e1eae0f85902 (diff) | |
| download | fpc-0e1a4cb16bee5fdda5dcaf100dcd5dac32559da9.tar.gz | |
+ use the new CC_OmfExtension_IMPDEF constant instead of the direct magic value
when writing IMPDEF records
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42234 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/ogomf.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas index 93aeb5721f..81aade73b6 100644 --- a/compiler/ogomf.pas +++ b/compiler/ogomf.pas @@ -1351,12 +1351,12 @@ implementation if ordnr <= 0 then begin if afuncname=mangledname then - DllImport_COMENT.CommentString:=#1#0+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+#0 + DllImport_COMENT.CommentString:=Chr(CC_OmfExtension_IMPDEF)+#0+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+#0 else - DllImport_COMENT.CommentString:=#1#0+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+Chr(Length(afuncname))+afuncname; + DllImport_COMENT.CommentString:=Chr(CC_OmfExtension_IMPDEF)+#0+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+Chr(Length(afuncname))+afuncname; end else - DllImport_COMENT.CommentString:=#1#1+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+Chr(ordnr and $ff)+Chr((ordnr shr 8) and $ff); + DllImport_COMENT.CommentString:=Chr(CC_OmfExtension_IMPDEF)+#1+Chr(Length(mangledname))+mangledname+Chr(Length(dllname))+dllname+Chr(ordnr and $ff)+Chr((ordnr shr 8) and $ff); DllImport_COMENT.EncodeTo(RawRecord); RawRecord.WriteTo(FWriter); DllImport_COMENT.Free; |