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

* fixup the asmbind of aliases (an llvm alias can never refer to an

Browse Source 
external symbol)

git-svn-id: trunk@34514 -
This commit is contained in:
Jonas Maebe 2016-09-11 17:12:00 +00:00
parent 702715a518
commit dfb20f3f6a
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/llvm/aasmllvm.pas
View File

@ -256,6 +256,17 @@ uses
newsym:=current_asmdata.DefineAsmSymbol(newname,AB_GLOBAL,AT_FUNCTION,_def); newsym:=current_asmdata.DefineAsmSymbol(newname,AB_GLOBAL,AT_FUNCTION,_def);
newsym.declared:=true; newsym.declared:=true;
def:=_def; def:=_def;
{ alias cannot be external }
case _bind of
{ weak external should actually become weak, but we don't support that
yet }
AB_WEAK_EXTERNAL:
internalerror(2016071203);
AB_EXTERNAL:
_bind:=AB_GLOBAL;
AB_EXTERNAL_INDIRECT:
_bind:=AB_INDIRECT;
end;
bind:=_bind; bind:=_bind;
end; end;