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

* fixed position of "weak" linkage flag

Browse Source 
git-svn-id: trunk@32915 -
This commit is contained in:
Jonas Maebe 2016-01-10 17:22:14 +00:00
parent 90071e04c4
commit e3f8f8c974
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/agllvm.pas
View File

@ -977,6 +977,8 @@ implementation
else
begin
writer.AsmWrite('define');
if ldf_weak in taillvmdecl(hp).flags then
writer.AsmWrite(' weak');
WriteLinkageVibilityFlags(taillvmdecl(hp).namesym.bind);
writer.AsmWrite(llvmencodeproctype(tprocdef(taillvmdecl(hp).def), '', lpd_def));
WriteFunctionFlags(tprocdef(taillvmdecl(hp).def));
@ -987,10 +989,10 @@ implementation
begin
writer.AsmWrite(LlvmAsmSymName(taillvmdecl(hp).namesym));
writer.AsmWrite(' =');
if ldf_weak in taillvmdecl(hp).flags then
writer.AsmWrite(' weak');
WriteLinkageVibilityFlags(taillvmdecl(hp).namesym.bind);
writer.AsmWrite(' ');
if ldf_weak in taillvmdecl(hp).flags then
writer.AsmWrite('weak ');
if (ldf_tls in taillvmdecl(hp).flags) then
writer.AsmWrite('thread_local ');
if ldf_unnamed_addr in taillvmdecl(hp).flags then