paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 02:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed r46776: With -O3 do not "coalesce" spilled nodes if the initial location is set.

Browse Source 
git-svn-id: trunk@46777 -
This commit is contained in:
yury 2020-09-05 18:39:09 +00:00
parent c2dc342c55
commit 71fcb74e95
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -2403,7 +2403,9 @@ unit rgobj;
interfere but are connected by a move instruction
doing so might save some mem->mem moves }
if (cs_opt_level3 in current_settings.optimizerswitches) and assigned(reginfo[t].movelist) then
if (cs_opt_level3 in current_settings.optimizerswitches) and
getnewspillloc and
assigned(reginfo[t].movelist) then
for j:=0 to reginfo[t].movelist^.header.count-1 do
begin
x:=Tmoveins(reginfo[t].movelist^.data[j]).x;