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

* explicitly define the asmsymbols for Darwin call stubs as local

Browse Source 
git-svn-id: trunk@25264 -
This commit is contained in:
Jonas Maebe 2013-08-16 10:07:46 +00:00
parent 51f7d0645a
commit 3b9b6a0cd7
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/cgcpu.pas
View File

@ -3130,7 +3130,7 @@ unit cgcpu;
current_asmdata.asmlists[al_imports]:=TAsmList.create;
new_section(current_asmdata.asmlists[al_imports],sec_stub,'',4);
result := current_asmdata.RefAsmSymbol(stubname);
result := current_asmdata.DefineAsmSymbol(stubname,AB_LOCAL,AT_FUNCTION);
current_asmdata.asmlists[al_imports].concat(Tai_symbol.Create(result,0));
{ register as a weak symbol if necessary }
if weak then

2
compiler/ppcgen/cgppc.pas
View File

@ -320,7 +320,7 @@ unit cgppc;
else
stubalign:=16;
new_section(current_asmdata.asmlists[al_imports],sec_stub,'',stubalign);
result := current_asmdata.RefAsmSymbol(stubname);
result := current_asmdata.DefineAsmSymbol(stubname,AB_LOCAL,AT_FUNCTION);
current_asmdata.asmlists[al_imports].concat(Tai_symbol.Create(result,0));
{ register as a weak symbol if necessary }
if weak then

2
compiler/x86/cgx86.pas
View File

@ -756,7 +756,7 @@ unit cgx86;
current_asmdata.asmlists[al_imports]:=TAsmList.create;
new_section(current_asmdata.asmlists[al_imports],sec_stub,'',0);
result := current_asmdata.RefAsmSymbol(stubname);
result := current_asmdata.DefineAsmSymbol(stubname,AB_LOCAL,AT_FUNCTION);
current_asmdata.asmlists[al_imports].concat(Tai_symbol.Create(result,0));
{ register as a weak symbol if necessary }
if weak then