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

* reference FPC_ABSMASK_SINGLE/-DOUBLE using the indirect symbol if required for dynamic packages

Browse Source 
git-svn-id: trunk@43536 -
This commit is contained in:
svenbarth 2019-11-21 21:44:22 +00:00
parent f13200d68b
commit f4d96906c2
1 changed files with 15 additions and 3 deletions

18
compiler/x86/nx86inl.pas
View File

@ -87,7 +87,7 @@ implementation
uses
systems,
globtype,globals,
verbose,compinnr,
verbose,compinnr,fmodule,
defutil,
aasmbase,aasmdata,aasmcpu,
symconst,symtype,symdef,symcpu,
@ -557,8 +557,16 @@ implementation
procedure tx86inlinenode.second_abs_real;
function needs_indirect:boolean; inline;
begin
result:=(tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports);
end;
var
href : treference;
sym : tasmsymbol;
begin
if use_vectorfpu(resultdef) then
begin
@ -575,7 +583,9 @@ implementation
case tfloatdef(resultdef).floattype of
s32real:
begin
reference_reset_symbol(href,current_asmdata.RefAsmSymbol(target_info.cprefix+'FPC_ABSMASK_SINGLE',AT_DATA),0,4,[]);
sym:=current_asmdata.RefAsmSymbol(target_info.cprefix+'FPC_ABSMASK_SINGLE',AT_DATA,needs_indirect);
reference_reset_symbol(href,sym,0,4,[]);
current_module.add_extern_asmsym(sym);
tcgx86(cg).make_simple_ref(current_asmdata.CurrAsmList, href);
if UseAVX then
current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg_reg(
@ -585,7 +595,9 @@ implementation
end;
s64real:
begin
reference_reset_symbol(href,current_asmdata.RefAsmSymbol(target_info.cprefix+'FPC_ABSMASK_DOUBLE',AT_DATA),0,4,[]);
sym:=current_asmdata.RefAsmSymbol(target_info.cprefix+'FPC_ABSMASK_DOUBLE',AT_DATA,needs_indirect);
reference_reset_symbol(href,sym,0,4,[]);
current_module.add_extern_asmsym(sym);
tcgx86(cg).make_simple_ref(current_asmdata.CurrAsmList, href);
if UseAVX then
current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg_reg(