ASM и функции

[Celestia]

Здравствуйте. Подскажите пожалуйста почему возвращаемое значение всегда равно нулю? По идее должно быть 13.00

type
  TVec3 = record
   x,y,z: single;
  end;
  TTypeClass = (tcOne,tcTwo,tcThree);    

..

Function GetMyPosition(MyId: string; TypeClass: TTypeClass): single;
var a: string;
begin
 case TypeClass of
  tcOne: a:='One';
  tcTwo: a:='Two';
  tcThree: a:='Three';
 end;

 showmessage(MyID+#13+a);
 result:=13.00;
end;

Procedure ShowMsg(S: string);
begin
 Showmessage(S);
end;


Procedure OnInit;
var
 pGetMyPosition: pointer;
 pShowMsg: pointer;
 stri: string;
 TC: TTypeClass;
 res: single;
begin
 pGetMyPosition:=@GetMyPosition;
 pShowMsg:=@ShowMsg;

 TC:=tcThree;
 stri:='Привет!';

 asm
 mov eax, stri
 mov edx, TC
 call pGetMyPosition
 mov res, eax
 end;

showmessage(FloatToStr(res));
end;

Также, хотел спросить, как можно принимать возвращаемые значения не как single а как, допустим, TVec3 ? (естественно, если переделать функцию в вид Function Lalala: TVec3)

[xoodoo]

значение всегда равно нулю

Не всегда, просто так звезды сложились.
С равной вероятностью оно может быть любое.

Результат вещ.типа при delphi fastcall возвращается не через eax, а через вершину FPU-стека, т.е. забирать его надо из st(0) с последующей коррекцией стека.

[Celestia]

А можно поподробней об этом пожалуйста?

[xoodoo]

О чем "об этом" ?
Ты впервые слышишь об FPU ?

[Celestia]

Нет, не впервые. Просто не сталкивался раньше с ассемблером, а тут такая задача просто встала- решить проблему с принятием результата функции.
"забирать его надо из st(0) с последующей коррекцией стека. " - не можешь написать как это сделать?

[xoodoo]

call чегототам
fstp res

[Celestia]

Сообщение от xoodoo

call чегототам
fstp res

Спасибо, так работает. А не можешь ничего сказать по поводу того как получать не числа в результате а record'ы ?