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

* make the vectorized dead strip section symbol external for files that

Browse Source 
don't define it

git-svn-id: trunk@32534 -
This commit is contained in:
Jonas Maebe 2015-11-25 22:25:54 +00:00
parent 4c720b8ba2
commit ac18eb005f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/aasmcnst.pas
View File

@ -1341,11 +1341,17 @@ implementation
class function ttai_typedconstbuilder.get_vectorized_dead_strip_section_symbol(const basename: string; st: tsymtable; define, start: boolean): tasmsymbol;
var
bind: tasmsymbind;
begin
if start then
result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'START'),AB_GLOBAL,AT_DATA)
if define then
bind:=AB_GLOBAL
else
result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'END'),AB_GLOBAL,AT_DATA);
bind:=AB_EXTERNAL;
if start then
result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'START'),bind,AT_DATA)
else
result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'END'),bind,AT_DATA);
end;