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

* only in EXTDEBUG leave register allocator when it fails. Otherwise

Browse Source 
give an IE
This commit is contained in:
peter 2005-04-07 15:42:04 +00:00
parent dbe75438c3
commit e207c402fc
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/rgobj.pas
View File

@ -536,9 +536,15 @@ unit rgobj;
begin begin
inc(spillingcounter); inc(spillingcounter);
if spillingcounter>maxspillingcounter then if spillingcounter>maxspillingcounter then
exit; begin
if spillingcounter>maxspillingcounter then {$ifdef EXTDEBUG}
internalerror(200309041); { Only exit here so the .s file is still generated. Assembling
the file will still trigger an error }
exit;
{$else}
internalerror(200309041);
{$endif}
end;
endspill:=not spill_registers(list,headertai); endspill:=not spill_registers(list,headertai);
end; end;
until endspill; until endspill;
@ -2014,7 +2020,11 @@ unit rgobj;
end. end.
{ {
$Log$ $Log$
Revision 1.156 2005-03-25 21:55:43 jonas Revision 1.157 2005-04-07 15:42:04 peter
* only in EXTDEBUG leave register allocator when it fails. Otherwise
give an IE
Revision 1.156 2005/03/25 21:55:43 jonas
* removed some unused variables * removed some unused variables
Revision 1.155 2005/03/20 19:47:46 peter Revision 1.155 2005/03/20 19:47:46 peter