paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 15:23:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disabled superfluous zeroing of another field

Browse Source 
git-svn-id: trunk@15529 -
This commit is contained in:
Jonas Maebe 2010-07-05 21:35:47 +00:00
parent 9f071282b3
commit 8be466546a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/rgobj.pas
View File

@ -372,15 +372,15 @@ unit rgobj;
if high(Ausable)=-1 then if high(Ausable)=-1 then
internalerror(200210181); internalerror(200210181);
live_range_direction:=rad_forward; live_range_direction:=rad_forward;
supregset_reset(extended_backwards,false,high(tsuperregister)); // initialised by newinstance
// reset when the direction is set to rad_backwards/rad_backwards_reinit // supregset_reset(extended_backwards,false,high(tsuperregister));
// supregset_reset(backwards_was_first,false,high(tsuperregister)); // supregset_reset(backwards_was_first,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary; first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary; maxreg:=Afirst_imaginary;
regtype:=Aregtype; regtype:=Aregtype;
defaultsub:=Adefaultsub; defaultsub:=Adefaultsub;
preserved_by_proc:=Apreserved_by_proc; preserved_by_proc:=Apreserved_by_proc;
// default value set by constructor // default value set by newinstance
// used_in_proc:=[]; // used_in_proc:=[];
live_registers.init; live_registers.init;
{ Get reginfo for CPU registers } { Get reginfo for CPU registers }