paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 09:41:51 +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} {$endif}
; ;
const
{ Maximum number of loops when spilling registers }
maxspillingcounter = 20;
{**************************************************************************** {****************************************************************************
PROCEDURE/FUNCTION BODY PARSING PROCEDURE/FUNCTION BODY PARSING
****************************************************************************} ****************************************************************************}
@ -576,7 +582,7 @@ implementation
usesacc, usesacc,
usesfpu, usesfpu,
usesacchi : boolean; usesacchi : boolean;
spillingcounter : integer;
begin begin
{ the initialization procedure can be empty, then we { the initialization procedure can be empty, then we
don't need to generate anything. When it was an empty don't need to generate anything. When it was an empty
@ -682,11 +688,19 @@ implementation
if not(cs_no_regalloc in aktglobalswitches) then if not(cs_no_regalloc in aktglobalswitches) then
begin begin
{Do register allocation.} {Do register allocation.}
spillingcounter:=0;
repeat repeat
rg.prepare_colouring; rg.prepare_colouring;
rg.colour_registers; rg.colour_registers;
rg.epilogue_colouring; 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); aktproccode.translate_registers(rg.colour);
(* (*
{$ifndef NoOpt} {$ifndef NoOpt}
@ -1301,7 +1315,10 @@ begin
end. end.
{ {
$Log$ $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 * NEWRA branch merged
Revision 1.139 2003/09/03 11:18:37 florian Revision 1.139 2003/09/03 11:18:37 florian