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

* some fixes for expectloc

Browse Source
This commit is contained in:
florian 2021-09-22 22:08:56 +02:00
parent a0c0a8fa8c
commit 01d6358f93
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/nx86add.pas
View File

@ -1170,6 +1170,10 @@ unit nx86add;
make_not_regable(right,[ra_addr_regable]);
end;
Result:=inherited pass_1;
{ correct expectloc, it does not matter of Result is set as another pass_1 is run on it
which will fix that one }
if use_vectorfpu(resultdef) then
expectloc:=LOC_MMREGISTER;
end;

4
compiler/x86/nx86con.pas
View File

@ -53,12 +53,14 @@ implementation
result:=nil;
if is_number_float(value_real) and not(use_vectorfpu(resultdef)) and ((value_real=1.0) or ((value_real=0.0) and (get_real_sign(value_real)=1))) then
expectloc:=LOC_FPUREGISTER
else if (value_real=0.0) and (get_real_sign(value_real)=1) and use_vectorfpu(resultdef) then
expectloc:=LOC_MMREGISTER
else
expectloc:=LOC_CREFERENCE;
end;
procedure tx86realconstnode.pass_generate_code;
procedure tx86realconstnode.pass_generate_code;
begin
if is_number_float(value_real) then
begin