paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +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
internalerror(200210181);
live_range_direction:=rad_forward;
supregset_reset(extended_backwards,false,high(tsuperregister));
// reset when the direction is set to rad_backwards/rad_backwards_reinit
// initialised by newinstance
// supregset_reset(extended_backwards,false,high(tsuperregister));
// supregset_reset(backwards_was_first,false,high(tsuperregister));
first_imaginary:=Afirst_imaginary;
maxreg:=Afirst_imaginary;
regtype:=Aregtype;
defaultsub:=Adefaultsub;
preserved_by_proc:=Apreserved_by_proc;
// default value set by constructor
// default value set by newinstance
// used_in_proc:=[];
live_registers.init;
{ Get reginfo for CPU registers }