ToDo. Написать как замена "ассемблера" на нормальное ООП привело к отказу от "алгоритма маляра"

ToDo. Написать как замена "ассемблера" на "нормальное" ООП (в собственной реализации IStorage) привело к отказу от "алгоритма маляра".

И в итоге к значительному приросту производительности.

Пока - "крайне коротко" - поскольку - на ассемблере достаточно сложно программировать, особенно "объекты с хранимым состоянием", то "люди до меня" писали просто и незамысловато. Чтобы "самим не запутаться".Это неплохо. Но это привело к тому, что многое было сделано в стиле "алгоритма маляра" и "выливаем воду из чайника".

Потому что "состояния хранить" было негде, а с логикой можно было и "запутаться".

НА N-й итерации рефакторинга этого кода я нашёл эти проблемы и наконец - переделал.

Это было непросто - потому что эти проблемы были скрыты "бутылочным горлышком". Даже несколькими.

В итоге проблемы были переосмыслены только тогда когда были другие проблемы найдены.

Напишу про всё. Как дойдут руки.

Там много материала. Очень показательного для "меня лично". Прям новые горизонты открываются.

P.S. Ну и "вдогонку".

Просто приведу реальный код. (15-летней давности)

В нём есть "алгоритм маляра":

 procedure   Tm3StorageStream.Seek(AOffset     : Int64;
                                   AOrigin     : TSeekOrigin;
                                   var AResult : Int64;
                                   var AReturn : HRESULT
                                  );

  procedure    __Seek(const APosition: Int64;
                      var   AResult: Int64
                     );
  var
        LCount:                   Int64;
        LPosition1:               Int64;
        LPosition2:               Int64;
        LPosition3:               Int64;
  begin

   with f_StreamHeader.TOCItemDataPtr^.RBody do
    begin

     if ((APosition >= 0) and (APosition <= RRealSize))
      then
       begin

        if (APosition = FPosition)
         then
         else
          begin

           LPosition1:=FPosition-FTOCBuffBodyOffset;

           if ((APosition >= LPosition1) and (APosition < (LPosition1+TOCBuffBodySize)))
            then
             begin

              FTOCBuffBodyOffset:=APosition-LPosition1;

             end
            else
             begin

              with f_StreamHeader.FRootStreamManager do
               begin

                SaveTOCBuffData(RTOCBuffRootPosition, f_CurFilePos,
                                FTOCBuffData^, FTOCBuffDataCompare^,
                                FTOCBuffDataModifed, ReadOnly);

                LPosition2:=Int64(-1);
                LPosition3:=RTOCBuffRootPosition;

                LCount:=APosition div FTOCBuffBodySize;

                while (LCount <> 0) do
                 begin

                  LoadTOCBuffData(LPosition2,LPosition3,LPosition2,
                                  FTOCBuffData^,FTOCBuffDataCompare^,
                                  FTOCBuffDataModifed,False);

                  LPosition3:=FTOCBuffData^.RNextPosition;

                  Dec(LCount);

                 end;

                LoadTOCBuffData(LPosition2,LPosition3, f_CurFilePos,
                                FTOCBuffData^,FTOCBuffDataCompare^,
                                FTOCBuffDataModifed,True);

                FTOCBuffBodyOffset:=APosition mod FTOCBuffBodySize;

               end;

             end;

           FPosition:=APosition;

          end;

       end
      else
       begin

        Exit;

       end;

    end;

   AResult:=APosition;

  end;

 begin

  if SUCCEEDED(AReturn)
   then
    begin

     case AOrigin of

      soBeginning: begin

                        __Seek(AOffset,AResult);

                       end;

      soCurrent: begin

                        __Seek(AOffset+FPosition,AResult);

                       end;

      soEnd: begin

                        __Seek(AOffset + f_StreamHeader.TOCItemDataPtr^.RBody.RRealSize, aResult);

                       end;

      else             begin

                        OleError(E_UNEXPECTED);

                       end;

     end;
     
    end;

 end;

Оформление кода приведено "авторское".

Это не чтобы "кого-то попинать", а просто к тому, что "все люди - меняются".

P.P.S. Что я ещё хотел сказать? А то, что "читабельность кода" очень часто влияет на его производительность.

Хотя мне известны и обратные примеры.