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

Fix the edge of first_imaginary in move op

Browse Source
This commit is contained in:
Jinyang He 2022-11-05 09:49:49 +08:00 committed by FPK
parent 2d680afab7
commit 96f4300158
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -1483,9 +1483,9 @@ unit rgobj;
such as stack/framepointers, because otherwise they can be changed } such as stack/framepointers, because otherwise they can be changed }
else if (((u<first_imaginary) and adjacent_ok(u,v)) or else if (((u<first_imaginary) and adjacent_ok(u,v)) or
conservative(u,v)) and conservative(u,v)) and
((u>first_imaginary) or ((u>=first_imaginary) or
(u in usable_register_set)) and (u in usable_register_set)) and
((v>first_imaginary) or ((v>=first_imaginary) or
(v in usable_register_set)) then (v in usable_register_set)) then
begin begin
m.moveset:=ms_coalesced_moves; {Move coalesced!} m.moveset:=ms_coalesced_moves; {Move coalesced!}