Asm в Delphi

← →
zep (2006-02-15 23:54) [0]

Доброго и Бодрого всем суток. Мастера подскажите кто нибудь
как написать на asm"е следующюю процедуру

Procedure My_proc(a,b: Extended):integer;
begin
result:= a+b;
end;

или подскажите как на Delphi asm"е работать с числами типа Extended или Double;

Платформа intel пень 4

зарание спасибо.

← →
Джо © (2006-02-16 01:43) [1]

Тот код который ты привел компилироваться не станет в любом случае ;)
Чтобы увидеть машинный код, поставь breakpoint и посмотри CPU window.

← →
Германн © (2006-02-16 01:58) [2]

2 Джо ©
<OFFTOP>
Вот только сейчас осознал насколько я отстал от жизни в смысле ассемблера x86 в целом и ассемблера Дельфи в частности! Совершенно ничего не знаю о том что изменилось в FPU с тех пор, когда я им хоть как-то занимался. :(((
</OFFTOP>

← →
Marser © (2006-02-16 02:02) [3]

> [2] Германн © (16.02.06 01:58)

Почитайте, к примеру, Зубкова.

← →
Германн © (2006-02-16 02:51) [4]

2 Marser © (16.02.06 02:02) [3]
Спасибо тёзка из второго по значимости для меня города Украины. Но ваш совет я врядли выполню. Нет времени.
Мне сейчас платят за совсем другой ассемблер. А в свободное время я предпочитаю читать "художественную литературу".
<offtop>
Вот сейчас перечитываю Roger Zelazny "A Night In Lonesome October".
И в очередной раз получаю некоторые новые нюансы!
</offtop>

← →
zep (2006-02-16 08:33) [5]

Procedure My_proc(a,b: Extended):integer;
begin
result:= trunc(a+b);
end;
так будет

function My_proc(a,b: Extended):integer;
asm
fld a
fld b
fadd
fistp dword ptr a
mov eax, dword ptr a
end;

> Вот сейчас перечитываю Roger Zelazny "A Night In Lonesome
> October".

В смысле - в оригинале? Название какое-то "унылое", интересная веСЧь?

> интересная веСЧь?

Интересная

Asm в Delphi Найти похожие ветки