оптимизация SSE

[ANsy]

выполнил оптимизацию под SSE (размытие строки цветов по весам), в итоге операция замедлилась аж в 5 раз

procedure BlurRowSSE(var theRow: array of TPxlC; K: TKernel; P: PRow);
var
  j, n: integer;
  tr, tg, tb: double; //tempRed è äð.
  w: double;
  xmm_w,xmm_c,xmm_t:TXMMSingle;
  na:byte;
begin

  for na:=0 to 3 do xmm_w[na]:=255;
  asm
   push eax
   push ebx
   push ecx
   push edx
   movups xmm0,xmm_w
   xorps xmm1,xmm1//0
   xorps xmm4,xmm4
   cmpeqps xmm4,xmm1//1
  end;

  for j := 0 to High(theRow) do
  begin
    {tb := 0;
    tg := 0;
    tr := 0;}
    asm
     xorps xmm7,xmm7
    end;
    for n := -K.Size to K.Size do
    begin
      //w := K.Weights[n];
      for na:=0 to 3 do xmm_w[na]:=K.Weights[n];
      asm
       movups xmm5,xmm_w//w
      end;

      //TrimInt çàäàåò îòñòóï îò êðàÿ ñòðîêè...

      with theRow[TrimInt(0, High(theRow), j - n)] do
      begin
        xmm_c[0]:=b;
        xmm_c[1]:=g;
        xmm_c[2]:=r;
        asm
         movups xmm2,xmm_c//b
         mulps  xmm5,xmm2//w*b
         addps  xmm7,xmm5//tb+[w*b]
        end;
         {tb := tb + w * b;
         tg := tg + w * g;
         tr := tr + w * r;}
      end;//with
    end;//for

    with P[j] do
    begin
      asm
       movups xmm2,xmm7//n
       movups xmm3,xmm2//copy n for mask
       cmpnleps xmm3,xmm0//mask >255
       xorps xmm3,xmm4//!mask
       andps xmm2,xmm3//n and [!mask]
       xorps xmm3,xmm4//mask
       andps xmm3,xmm0//mask and 255
       xorps xmm2,xmm3//n xor [mask and 255]
       movups xmm3,xmm2//copy n for mask
       cmpltps xmm3,xmm1//mask <0
       xorps xmm3,xmm4//!mask
       andps xmm2,xmm3
       movups xmm_c,xmm2
      end;
      b:=trunc(xmm_c[0]);
      g:=trunc(xmm_c[1]);
      r:=trunc(xmm_c[2]);
      {b := TrimReal(0, 255, tb);
      g := TrimReal(0, 255, tg);
      r := TrimReal(0, 255, tr);}
    end;//with
  end;//for

  asm
   pop edx
   pop ecx
   pop ebx
   pop eax
  end;

  Move(P[0], theRow[0], (High(theRow) + 1) * Sizeof(TPxlC));
end;

ps(пишу курсовую по теме использования SSE)

[Yar-Com]

перепиши все на асм тут у тебя жесть какая-то

компиллер сума сходит

попробуй еще поставить выравнивание qword и повключать повыключать оптимизацию