x86 ASM => 64 bit

[himitsu]

Ich weiß nicht, ob ich es richtig übersetzt hab,
aber ich würde empfehlen garnicht erst zu versuchen dieses Assembler weiter zu nutzen.

Stattdessen sollte man eher versuchen die neue RTTI zu verwenden:

Delphi-Quellcode:

uses
  System.TypInfo, System.RTTI;

function zend_get_parameters(ht: Integer; param_count: Integer; Params: array of ppzval): Integer;
var
  Args: TArray<TValue>;
  i: Integer;
begin
  SetLength(Args, Length(Params) + 2);
  Args[0].From<Integer>(ht);
  Args[1].From<Integer>(param_count);
  for i := 0 to High(Params) do
    Args[i + 2].From<ppzval>(Params[i]);
  Result := Invoke(@ZendGetParameters, Args, ccCdecl, TypeInfo(Result)).AsInteger;
end;

Code nicht getestet und ich bin mir auch nicht sicher, ob das mit den übergebenen Parametern so stimmt.
Bis auf "Args" bin ich mir aber relativ sicher, daß es so stimmen sollte.