paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 04:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ use the new CC_OmfExtension_IMPDEF constant instead of the direct magic value

Browse Source 
when writing IMPDEF records

git-svn-id: trunk@42234 -
This commit is contained in:
nickysn 2019-06-14 23:11:25 +00:00
parent 4f3a5cfd1e
commit 9fe80d7416
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogomf.pas
View File

@ -1351,12 +1351,12 @@ implementation
if ordnr <= 0 then if ordnr <= 0 then
begin begin
if afuncname=mangledname then 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 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 end
else 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); DllImport_COMENT.EncodeTo(RawRecord);
RawRecord.WriteTo(FWriter); RawRecord.WriteTo(FWriter);
DllImport_COMENT.Free; DllImport_COMENT.Free;