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

make rgobj.uses_registers also return true, when the rg never allocated an imreg, but there were direct cpu register allocations. this at least fixes some address regvar trashing on 68k in relation to syscalls' explicit paralocs

Browse Source 
git-svn-id: trunk@34777 -
This commit is contained in:
Károly Balogh 2016-11-03 01:45:34 +00:00
parent 1c04470b66
commit e0e90fffc4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -228,6 +228,7 @@ unit rgobj;
extended_backwards,
backwards_was_first : tbitset;
has_usedmarks: boolean;
has_directalloc: boolean;
{ Disposes of the reginfo array.}
procedure dispose_reginfo;
@ -523,7 +524,7 @@ unit rgobj;
function trgobj.uses_registers:boolean;
begin
result:=(maxreg>first_imaginary) or has_usedmarks;
result:=(maxreg>first_imaginary) or has_usedmarks or has_directalloc;
end;
@ -543,6 +544,7 @@ unit rgobj;
if supreg>=first_imaginary then
internalerror(2003121503);
include(used_in_proc,supreg);
has_directalloc:=true;
list.concat(Tai_regalloc.alloc(r,nil));
end;