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

* fix internalerror 200502052 with certain min/max optimizations on x86-64, resolves #40730

Browse Source
This commit is contained in:
florian 2024-04-06 23:31:37 +02:00
parent 01f9053f3d
commit 139f2dfe84
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/nx86inl.pas
View File

@ -1751,6 +1751,15 @@ implementation
{ Try to use references as is, unless they would trigger internal { Try to use references as is, unless they would trigger internal
error 200502052 } error 200502052 }
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
(paraarray[1].location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
Assigned(paraarray[1].location.reference.symbol) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,paraarray[1].location,
paraarray[1].resultdef,paraarray[1].resultdef,true);
{ Try to use references as is, unless they would trigger internal
error 200502052 }
if (cs_create_pic in current_settings.moduleswitches) and
(paraarray[2].location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
Assigned(paraarray[2].location.reference.symbol) then Assigned(paraarray[2].location.reference.symbol) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,paraarray[2].location, hlcg.location_force_reg(current_asmdata.CurrAsmList,paraarray[2].location,
paraarray[2].resultdef,paraarray[2].resultdef,true); paraarray[2].resultdef,paraarray[2].resultdef,true);