Как написать процедуру без пролога и эпилога

[Kuzya69]

Пишу процедуру такого вида, но из-за наличия "begin-end;" компиллятор иногда, редко, создает пролог, а уж эпилог так это всегда. Поэтому команды "push-pop" внутри асм-вставок нарушают правильное выполнение процедуры. Вся байда у меня в том, что мне надо обязательно сохранить и потом восстановить регистр состояния (pushad-popad не обязательные, но желательные команды). Как заставить компиллятор не создавать пролог и эпилог в этой процедуре?

Procedure MyProc;
begin
  asm
    pushfd;
    pushad;
  end;
    ....... мой код на Делфи .....
  asm
    popad;
    popfd;
  end;
end;

Ну или как внутрь такой асм-процедуры, вставить делфийский код?

Procedure MyProc; Assembler;
asm
  pushfd;
  pushad;
    ....... мой код на Делфи .....
  popad;
  popfd;
end;

[Пепел Феникса]

используйте второй вариант, а ваш код вынесите в отдельную процедуру и просто вызывайте ее.

[Kuzya69]

Это конечно ответ. Но...
Я не стал писать весь код, надеясь получить ответ на МОЙ вопрос.
В моем делфийском коде есть как-бы два выхода, и поэтому концовка асм-кода будет в первом случае такая как я привел, во втором, я сначала изменю регистры в стеке которые загнал туда командой pushad, а потом закончу стандартный код. Тут тогда появляется еще куча вопросов.
1. Как изменить стек в вынесенной процедуре? Ведь там точно появится эпилог и/или пролог.
2. Или как сделать два выхода из процедуры?

[Pavia]

Пролог и эпилог генерируются вместе. Всегда в зависимости от наличия параметров и локальных переменных. Хотите без эпилога и пролога. Убирайте локальные переменные и параметры.
Что касатеся 2-х выходов. Так возьмите и сделайте в чём вопрос?
jmp и goto вам в помощь.
Концовку формируете вручную.

procedure Foo;
begin
if ck then goto L2

asm
popa
ret 4
end; 
L2: WriteLn('Two');
asm
popa
ret 4
end; 
end; // конец процедуры

[Пепел Феникса]

вы можете или полностью работать в асме, или промежуточное как в первом варианте.

во втором варианте вы можете лишь вызвать иные процедуры.

вам никто не запрещает написать не процедуру, а некую функцию, по результату которой вы будете определять что делать в асме.

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

[Kuzya69]

Ага, точно, про функцию вместо процедуры я совсем не подумал.
Тогда попутный вопрос, Делфи всегда выводит Result в регистре eax?

То-есть выходит, что нет ни директив, никаких трюков, чтобы избавиться от этих прологов-эпилогов, кроме как отказавшись от локальных переменных и параметров?

И кстати, как быть-то, ведь мне нужно передать стек в вынесенную функцию. На основе данных стека, я решаю какой выход избрать. Придется завести глобальную запись под стек?