Просмотр исходного кода

* disabled superfluous zeroing of another field

git-svn-id: trunk@15529 -
Jonas Maebe 15 лет назад
Родитель
Сommit
8be466546a
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      compiler/rgobj.pas

+ 3 - 3
compiler/rgobj.pas

@@ -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));
-         // 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));
          // 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 }