From 0e1a4cb16bee5fdda5dcaf100dcd5dac32559da9 Mon Sep 17 00:00:00 2001 From: nickysn Date: Fri, 14 Jun 2019 23:11:25 +0000 Subject: + 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 --- compiler/ogomf.pas | 6 +++--- 1 file 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; -- cgit v1.2.1