Модератор: Модераторы
Код: Выделить всё
; [326] AND Len,3
%LINE 326+0
and eax,3
; [327] JZ @Exit
%LINE 327+0
jz ..@j44_1
..@j45_1:
; [329] MOVD XMM0, [P1+EAX*4]
%LINE 329+0
movd xmm0,[edx+eax*4]
; [330] MOVD XMM0, [P1+Len*4]
%LINE 330+0
movd xmm0,[eax+edx*4]iskander писал(а):Наверно нужен хоть какой-то компилируемый кусочек кода.
Код: Выделить всё
program project1; //x32
{$mode objfpc}{$H+}
uses {$IFDEF UNIX}
cthreads, {$ENDIF}
Classes { you can add units after this };
procedure Norm(Len: PtrUint; var P1, P2); assembler; nostackframe;
asm
MOVD XMM0, [P1+EAX*4]
MOVD [P2+EAX*4],XMM0
end;
procedure BAD(Len: PtrUint; var P1, P2); assembler; nostackframe;
asm
MOVD XMM0, [P1+LEN*4]
MOVD [P2+Len*4],XMM0
end;
type
AR = packed array [0..7] of byte;
var
Data1: AR = (1, 1, 1, 1, 1, 1, 1, 1);
Data2: AR = (2, 2, 2, 2, 2, 2, 2, 2);
i: byte;
begin
NORM(1, Data1, Data2);
for i := 0 to 7 do Write(Data2[i]);
BAD(1, Data1, Data2);
for i := 0 to 7 do Write(Data2[i]);
readln;
end.iskander писал(а):Очень похоже на глюк компилятора.