Пишу ф-цию cdecl соглашения, мне желательно сделать так, чтобы Delphi не вставляла свои пролог\эпилог к ф-ции? Помнится в с есть ключевое слово naked и программист сам потом может делать че хочет.

мне подобное надо на Delphi, может кто знает как это сделать?

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Вместо begin вконопатить asm и не юзать параметры и переменный канает, вроде

| Сообщение посчитали полезным:

А почему бы не объявить эту ф-ю как cdecl?

| Сообщение посчитали полезным:

egorovshura Объявил, но что-то со стеком кашмар

-----
My love is very cool girl.

| Сообщение посчитали полезным:

theCollision пишет:
Объявил, но что-то со стеком кашмар

А какой код-то дельфи сгенерировал для этой ф-ии (CPU window)? И что за параметры передаешь? Может что-нить с динамическими массивами или поинтерами, там обычно легко ошибиться.

| Сообщение посчитали полезным:

procedure myproc; assembler;
asm
...
end;

Отсебятины от делфи внутри этого не будет

| Сообщение посчитали полезным:

drin гы ))) а ты щас это напиши и погляди )

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Function myproc:integer;
asm
mov eax,0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
myproc;
end;
Написал и поглядел => в коде функции был ток mov eax,0 ;)

0044E1CC /$ B8 00000000 MOV EAX,0 ;myproc
0044E1D1 \. C3 RETN
0044E1D2 8BC0 MOV EAX,EAX
0044E1D4 . E8 F3FFFFFF CALL Project1.0044E1CC ; Button1Click
0044E1D9 . C3 RETN

| Сообщение посчитали полезным:

XQuader а пролог то какой? (не могу сам посмотреть) почему-то мну кажецо, что пролог все же буит тот же..

-----
invoke OpenFire

| Сообщение посчитали полезным:

XQuader попробуй объявить ф-цию по cdecl ?

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Ice-T
Нету ни пролога ни эпилога(это видно по коду,который я показал)
theCollision
Что с cdecl,что без него - код не изменился.
Если добавить какую-нить переменную,или усложнить код (Там IntToStr вызвать,то соответственно появляется пролог)

| Сообщение посчитали полезным:

XQuader пишет:
Нету ни пролога ни эпилога(это видно по коду,который я показал)
ну ты верхних пару строчек не показал, вдруг там пролог =)

-----
invoke OpenFire

| Сообщение посчитали полезным:

XQuader Гы, а я делал так:
function UnpackRoutine(aSource, aDestionation : Pointer) : Cardinal; cdecl;

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Ice-T
он же показал
0044E1D2 8BC0 MOV EAX,EAX
0044E1D4 . E8 F3FFFFFF CALL Project1.0044E1CC ; Button1Click
0044E1D9 . C3 RETN

А над ней показал его myfunc

Никакого пролога. Если ты имеешь ввиду пролог у myfunc, то это пох, так как пример приводится не с ней, а с ее вызовом.

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

theCollision если не хочешь секса с делфи, то начни свою функцию с pop ebp
Тогда после генерации получится

push ebp
mov ebp, esp
pop ebp
Твой код

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

PE_Kill с лишней командой :
u_FormMain.pas.53: POP EBP
0045FA64 5D pop ebp
u_FormMain.pas.54: PUSH EBP
0045FA65 55 push ebp
u_FormMain.pas.55: MOV EBP,ESP
0045FA66 89E5 mov ebp,esp

Спасибо, все решено это я с глупил! ;)

Надо было без begin в начале )

-----
My love is very cool girl.

| Сообщение посчитали полезным:

с вызовом понятно, просто интересно есть он там или нет впринципе.. и если поменять asm на begin появится ли он или мб изменится просто адрес ф-ии на меньший..малоли чего в дельфи может быть

-----
invoke OpenFire

| Сообщение посчитали полезным:

Ice-T пишет:
ну ты верхних пару строчек не показал, вдруг там пролог =)
Собсно я показал саму myproc (то,что вызывается по кнопке) и там всего 2 команды,mov eax,0;retn; =)
(по аддресу 0044E1D4 начинается код Button1Click =>0044E1D4 . E8 F3FFFFFF CALL Project1.0044E1CC (а это адрес Myproc) =>
0044E1CC /$ B8 00000000 MOV EAX,0 ;myproc
0044E1D1 \. C3 RETN

| Сообщение посчитали полезным:

мона сделать при вызове:
type a = function(param :dword):bool;
...
func = a(dword(@function)+3);
a(xxx);

-----
Shalom ebanats!

| Сообщение посчитали полезным:

PE_Kill вопрос, где и в каком месте справки написано про "POP EBP" ? ;)

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Пример объявления функции на Дельфи без пролога\эпилога

Function RTDCS:Int64; register;
begin
asm
rtdcs
end;
end;

| Сообщение посчитали полезным:

rdtsc

-----
Shalom ebanats!

| Сообщение посчитали полезным:

theCollision пишет:
где и в каком месте справки написано про "POP EBP" ?
Нигде, просто личный опыт, делфя не предназначалась для рипа.

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

2 SLV
Постоянно буковки в этой команде путаю.

| Сообщение посчитали полезным: