Einzelnen Beitrag anzeigen

Ryzinski

Registriert seit: 2. Okt 2012
38 Beiträge
 
#6

AW: x86 ASM => 64 bit

  Alt 7. Okt 2012, 21:24
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;

Geändert von Ryzinski ( 7. Okt 2012 um 21:28 Uhr)
  Mit Zitat antworten Zitat