· Начало · Отвђтить · Статистика · Поиск · FAQ · Правила · Установки · Язык · Выход · WASM.RU · Noir.Ru ·

 WASM Phorum —› WASM.WIN32 —› Delphi & asm

Посл.отвђт Сообщенiе


Дата: Мар 24, 2004 13:28:19

Кто-нибудь может мне сказать почему Делфя ругается на jmp'ы в
ассемблерных вставках?? Или это я что-то делаю не так...
Может кто приведёт пример ассемблерной вставки с jmp'ами?..

ЗЫ: взялся не за своё дело ;-)


Дата: Мар 24, 2004 15:32:45

Пример

procedure FuckOff;
begin
...blah..
...blah..
...blah..

asm
jmp @Next
@szCaption: db 'lol',0
@szText: db 'lol',0
@Next:
push MB_ICONINFORMATION
push offset @szCaption
push offset @szText
Push 0
call MessageBoxA
end;

...blah..
...blah..

end;

или так:

label Shit;

begin

Showmessage('Lamers must die')
asm
jmp Shit
...
Shit:
.....
end;


end


Дата: Мар 24, 2004 17:23:19

Ok, я так понимаю мне нужно было каждую метку объявить, типа label Shit; так?
Какой только ... придумал этО(т) Delphi ;-)
Кстати первый способ я пробовал, что-то не катит..


Дата: Мар 24, 2004 17:37:30

только что попробовал - все работает
    asm
        jmp @@next
        xor eax, eax
    @@next:
    end;


Дата: Мар 24, 2004 17:58:55

Мистика.., теперь и у меня работает, странно..


Дата: Мар 24, 2004 18:29:57

Кому как повезет...
лотерея.


Дата: Мар 25, 2004 00:09:03

Вот по этому я и пишу исключительно на asm ;-)


Дата: Мар 25, 2004 00:32:26

@@...: - локальная метка, насколько я помню, и не требует лишних манипуляцмй.
А чтобы он понимал другие, их нужно описать предварительно.


Powered by miniBB 1.6 © 2001-2002
Время загрузки страницы (сек.): 0.050