Registriert seit: 2. Okt 2012
38 Beiträge
|
AW: x86 ASM => 64 bit
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)
|
|
Zitat
|