paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 18:12:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed register allocation of gen_load_para_value() and backwards

Browse Source 
extension of regalloc info in general

git-svn-id: trunk@4293 -
This commit is contained in:
Jonas Maebe 2006-07-25 13:54:48 +00:00
parent 3d1370bf8b
commit 7bb3a1fe22
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psub.pas
View File

@ -792,7 +792,11 @@ implementation
assign_regvars(code);
{$endif oldreg}
aktfilepos:=entrypos;
{ record which registers are allocated here, since all code }
{ allocating registers comes after it }
cg.set_regalloc_extend_backwards(true);
gen_load_para_value(templist);
cg.set_regalloc_extend_backwards(false);
{ caller paraloc info is also necessary in the stackframe_entry
code of the ppc (and possibly other processors) }

2
compiler/rgobj.pas
View File

@ -371,6 +371,7 @@ unit rgobj;
if high(Ausable)=0 then
internalerror(200210181);
extend_live_range_backwards := false;
supregset_reset(extended_backwards,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary;
regtype:=Aregtype;
@ -682,7 +683,6 @@ unit rgobj;
if (b) then
begin
{ new registers may be allocated }
supregset_reset(extended_backwards,false,high(tsuperregister));
supregset_reset(backwards_was_first,false,high(tsuperregister));
do_extend_live_range_backwards := true;
end