x86 ASM => 64 bit

[Ryzinski]

When converting 32 bit ASM to 64 bits is something i can't convert.

push dword [esi]

Delphi-Quellcode:

function zend_get_parameters(ht: Integer; param_count: Integer;
  Params: array of ppzval): Integer; assembler; register;
asm
  push esi  
  mov esi, ecx
  mov ecx, [ebp+8]
  cmp ecx, 0
  je @first
@toploop:
  {$IFDEF VERSION6}
  push [esi][ecx * 4]
  {$ELSE}
  push dword [esi][ecx * 4]
  {$ENDIF}
  loop @toploop
@first:
  push dword [esi]// <<<<<<<<<<<<< Invalid combination of opcode and operands
  push edx   
  push eax   
  call ZendGetParameters
  mov ecx, [ebp+8]
  add ecx, 3
@toploop2:
  pop edx 
  loop @toploop2
  pop esi   
end;

[himitsu]

Du kannst 32 Bit-Assembler-Code nicht einfach so unter 64 Bit nutzen.
Vorallem da sich dort die CPU-Register und deren Verwendung komplett verändert hat.
Außerdem muß der Code natürlich auch noch an die andere Pointer-Größe angepaßt werden.

[Ryzinski]

i think be better to just convert asm to delphi

Maybe with IDA PRO HexRays => C => Delphi

[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.

[Ryzinski]

http://code.google.com/p/php5delphi/

I would pay someone to update this to XE3/64 Bits and latest PHP. Send offers on my PM.

[Ryzinski]

Where does this code fall in bellow code

Delphi-Quellcode:

@toploop:
  {$IFDEF VERSION6}
  push [esi][ecx * 4]
  {$ELSE}
  push dword [esi][ecx * 4]
  {$ENDIF}
  loop @toploop

Delphi-Quellcode:

uses
  Windows, SysUtils, ZendTypes,RTTI,System.TypInfo;

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]); // Statement expected, but expression of type 'TValue' found

  Result := Invoke(@ZendGetParameters, Args, ccCdecl, TypeInfo(Result)).AsInteger; //TYPEINFO standard function expects a type identifier
end;