Скачать: CL | DM;

Сравнение record на asm   Найти похожие ветки 

← →
Separator ©   (2003-06-11 07:45) [0]


type
TComplex = record
x: extended;
y: extended;
end;

function Equal(z1, z2: TComplex): boolean; register; //Сравнение
// z1 = z2
asm
MOV CL, $00
FLD TBYTE PTR [EDX + $10]
FLD TBYTE PTR [EAX + $10]
FLD TBYTE PTR [EDX]
FLD TBYTE PTR [EAX]
FCOMPP
FSTSW AX
SAHF
JNZ @END
FCOMPP
FSTSW AX
SAHF
JNZ @END
MOV CL, $01
@END:
MOV AL, CL
end;




Псмотрите код и скажите как его можно оптимизировать. Дело в том, что я только начинаю изучать asm на delphi и вот хотел бы узнать посмотреть на свои ошибки.

И ещё,

FLD TBYTE PTR [EDX]
FLD TBYTE PTR [EAX]
FCOMPP
FSTSW AX
SAHF
JNZ @END

если здесь происходит переход на @End, то в st(0) И st(1) <> empty, можно так оставить или нужно будет очистить (как?)?

---

← →
ZeroDivide ©   (2003-06-11 09:45) [1]

А почему переместили из общих вопросов? По-моему, надо было бы оставить там.

---

← →
icWasya ©   (2003-06-11 10:40) [2]

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

1)-----------

function Equal(z1, z2: TComplex): boolean; register; //Сравнение
asm
// вместо MOV CL, $00
XOR CL,CL
// лучше переставить следующие две строки
// FLD TBYTE PTR [EDX + $10]
// FLD TBYTE PTR [EAX + $10]

FLD TBYTE PTR [EDX]
FLD TBYTE PTR [EAX]
FCOMPP
FSTSW AX
SAHF
JNZ @END
// вот сюда
FLD TBYTE PTR [EDX + $10]
FLD TBYTE PTR [EAX + $10]

FCOMPP
FSTSW AX
SAHF
JNZ @END
MOV CL, $01
@END:
MOV AL, CL
end;


и для наглядности вместо

FLD TBYTE PTR [EDX]
FLD TBYTE PTR [EDX + $10]

можно написать

FLD TComplex.x [EDX]
FLD TComplex.y [EDX]


---

← →
Separator ©   (2003-06-11 12:30) [3]

Если я всё правильно понимаю, то AX, это часть регистра EAX, т.е. его 16-битная часть, а FSTSW AX сохраняет содержимое регистра управления cwr в AX, т.е. меняет значение EAX, чего не следует делать, так как я дальше им буду пользоваться.
В связи с этим возникает следующий вопрос - А вообще нужно делать так:

FSTSW AX
SAHF

или можно делать просто

SAHF

во всяком случае во всех примерах я встречал именно первый вариант

---

← →
Separator ©   (2003-06-11 12:48) [4]

FLD TComplex.y [EDX] не работает

---

← →
Separator ©   (2003-06-11 12:50) [5]

Вру, всё работае

---

← →
Separator ©   (2003-06-11 18:58) [6]

Так всё-таки как правильно

FSTSW AX
SAHF

или можно делать просто

SAHF


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c