paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 01:39:28 +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); assign_regvars(code);
{$endif oldreg} {$endif oldreg}
aktfilepos:=entrypos; 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); gen_load_para_value(templist);
cg.set_regalloc_extend_backwards(false);
{ caller paraloc info is also necessary in the stackframe_entry { caller paraloc info is also necessary in the stackframe_entry
code of the ppc (and possibly other processors) } 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 if high(Ausable)=0 then
internalerror(200210181); internalerror(200210181);
extend_live_range_backwards := false; extend_live_range_backwards := false;
supregset_reset(extended_backwards,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary; first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary; maxreg:=Afirst_imaginary;
regtype:=Aregtype; regtype:=Aregtype;
@ -682,7 +683,6 @@ unit rgobj;
if (b) then if (b) then
begin begin
{ new registers may be allocated } { new registers may be allocated }
supregset_reset(extended_backwards,false,high(tsuperregister));
supregset_reset(backwards_was_first,false,high(tsuperregister)); supregset_reset(backwards_was_first,false,high(tsuperregister));
do_extend_live_range_backwards := true; do_extend_live_range_backwards := true;
end end