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

* Typo fixed.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-11-02 20:36:30 +02:00
parent 5b32c81bef
commit 7e4753bebd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/rgobj.pas
View File

@ -1710,7 +1710,7 @@ unit rgobj;
supregset_include(colourednodes,n); supregset_include(colourednodes,n);
end; end;
function colour_regitser(n : Tsuperregister) : boolean; function colour_register(n : Tsuperregister) : boolean;
var var
j,k : cardinal; j,k : cardinal;
adj : Psuperregisterworklist; adj : Psuperregisterworklist;
@ -1767,7 +1767,7 @@ unit rgobj;
for i:=selectstack.length downto 1 do for i:=selectstack.length downto 1 do
begin begin
n:=selectstack.buf^[i-1]; n:=selectstack.buf^[i-1];
if not colour_regitser(n) and if not colour_register(n) and
(ri_spill_helper in reginfo[n].flags) then (ri_spill_helper in reginfo[n].flags) then
begin begin
{ Register n is a helper register which holds the value { Register n is a helper register which holds the value
@ -1788,7 +1788,7 @@ unit rgobj;
begin begin
n:=selectstack.buf^[i-1]; n:=selectstack.buf^[i-1];
if ri_spill_helper in reginfo[n].flags then if ri_spill_helper in reginfo[n].flags then
if not colour_regitser(n) then if not colour_register(n) then
{ Can't colour the spill helper register n. { Can't colour the spill helper register n.
This can happen only when the code generator produces invalid code. } This can happen only when the code generator produces invalid code. }
internalerror(2021091001); internalerror(2021091001);
@ -1798,7 +1798,7 @@ unit rgobj;
begin begin
n:=selectstack.buf^[i-1]; n:=selectstack.buf^[i-1];
if not (ri_spill_helper in reginfo[n].flags) then if not (ri_spill_helper in reginfo[n].flags) then
colour_regitser(n); colour_register(n);
end; end;
end; end;