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

* fixed writing non-default linkage and visibility of llvm alias declarations

Browse Source 
git-svn-id: trunk@31051 -
This commit is contained in:
Jonas Maebe 2015-06-13 22:48:11 +00:00
parent 1019a6b090
commit 4eea652576
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/agllvm.pas
View File

@ -938,7 +938,7 @@ implementation
if taillvmalias(hp).linkage<>lll_default then
begin
str(taillvmalias(hp).linkage, s);
asmwrite(copy(s, length('lll_'), 255));
asmwrite(copy(s, length('lll_')+1, 255));
asmwrite(' ');
end
else
@ -946,7 +946,7 @@ implementation
if taillvmalias(hp).vis<>llv_default then
begin
str(taillvmalias(hp).vis, s);
asmwrite(copy(s, length('llv_'), 255));
asmwrite(copy(s, length('llv_')+1, 255));
asmwrite(' ');
end;
asmwrite(llvmencodeproctype(tabstractprocdef(taillvmalias(hp).def), '', lpd_alias));