paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +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
inc(spillingcounter);
if spillingcounter>maxspillingcounter then
exit;
if spillingcounter>maxspillingcounter then
internalerror(200309041);
begin
{$ifdef EXTDEBUG}
{ 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);
end;
until endspill;
@ -2014,7 +2020,11 @@ unit rgobj;
end.
{
$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
Revision 1.155 2005/03/20 19:47:46 peter