paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +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);
end;
function colour_regitser(n : Tsuperregister) : boolean;
function colour_register(n : Tsuperregister) : boolean;
var
j,k : cardinal;
adj : Psuperregisterworklist;
@ -1767,7 +1767,7 @@ unit rgobj;
for i:=selectstack.length downto 1 do
begin
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
begin
{ Register n is a helper register which holds the value
@ -1788,7 +1788,7 @@ unit rgobj;
begin
n:=selectstack.buf^[i-1];
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.
This can happen only when the code generator produces invalid code. }
internalerror(2021091001);
@ -1798,7 +1798,7 @@ unit rgobj;
begin
n:=selectstack.buf^[i-1];
if not (ri_spill_helper in reginfo[n].flags) then
colour_regitser(n);
colour_register(n);
end;
end;