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

* abort with IE when spilling requires > 20 loops

Browse Source
This commit is contained in:
peter 2003-09-04 14:46:12 +00:00
parent 01a1f7d063
commit 059908d399
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/psub.pas
View File

@ -100,6 +100,12 @@ implementation
{$endif}
;
const
{ Maximum number of loops when spilling registers }
maxspillingcounter = 20;
{****************************************************************************
PROCEDURE/FUNCTION BODY PARSING
****************************************************************************}
@ -576,7 +582,7 @@ implementation
usesacc,
usesfpu,
usesacchi : boolean;
spillingcounter : integer;
begin
{ the initialization procedure can be empty, then we
don't need to generate anything. When it was an empty
@ -682,11 +688,19 @@ implementation
if not(cs_no_regalloc in aktglobalswitches) then
begin
{Do register allocation.}
spillingcounter:=0;
repeat
rg.prepare_colouring;
rg.colour_registers;
rg.epilogue_colouring;
until (rg.spillednodes='') or not rg.spill_registers(aktproccode,rg.spillednodes);
if rg.spillednodes='' then
break;
if not rg.spill_registers(aktproccode,rg.spillednodes) then
break;
inc(spillingcounter);
if spillingcounter>maxspillingcounter then
internalerror(200309041);
until false;
aktproccode.translate_registers(rg.colour);
(*
{$ifndef NoOpt}
@ -1301,7 +1315,10 @@ begin
end.
{
$Log$
Revision 1.140 2003-09-03 15:55:01 peter
Revision 1.141 2003-09-04 14:46:12 peter
* abort with IE when spilling requires > 20 loops
Revision 1.140 2003/09/03 15:55:01 peter
* NEWRA branch merged
Revision 1.139 2003/09/03 11:18:37 florian