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

* fixup for r32534: don't define external symbols, only reference them

Browse Source 
(mantis #29091)

git-svn-id: trunk@32535 -
This commit is contained in:
Jonas Maebe 2015-11-26 07:56:50 +00:00
parent ac18eb005f
commit ac743195b6
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aasmcnst.pas
View File

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