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

* fix min/max intrinsics on x86_64 for non constant/reference/register locations, resolves #40721

Browse Source
This commit is contained in:
florian 2024-04-01 23:24:20 +02:00
parent 7c3ab69c50
commit 3b8fcfc6eb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/nx86inl.pas
View File

@ -1726,9 +1726,14 @@ implementation
paraarray[1]:=tcallparanode(parameters).paravalue;
end;
if not(paraarray[1].location.loc in [LOC_CONSTANT,LOC_REFERENCE,LOC_CREFERENCE,LOC_REGISTER,LOC_CREGISTER]) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,paraarray[1].location,
paraarray[1].resultdef,paraarray[1].resultdef,true);
location_reset(location,LOC_REGISTER,paraarray[1].location.size);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,location.size);
hlcg.a_load_loc_reg(current_asmdata.CurrAsmList,paraarray[1].resultdef,resultdef,paraarray[1].location,location.register);
cg.a_reg_alloc(current_asmdata.CurrAsmList,NR_DEFAULTFLAGS);