델파이 XE2 64 비트 : GraphicEx의 인라인 asm

Question

어떻게이 것이 순수 델파이로 바뀌겠습니까? GraphicEx가 필요한 구성 요소를 컴파일 할 수 없어 JPG 단위에서 인라인 어셈블리가 64 비트 용으로 지원되지 않는 오류가 발생합니다.

function __ftol: Integer; 
var 
    f: double; 
begin 
    asm 
    lea eax, f    // BC++ passes floats on the FPU stack 
    fstp qword ptr [eax]  // Delphi passes floats on the CPU stack 
    end; 
    Result := Trunc(f); 
end; 

Answer 1

function __ftol(f : double) : Integer; 
begin 
    Result := Trunc(f); 
end; 

업데이트 : 내가 틀렸다 죄송합니다. double은이 함수에 진입 할 때 FPU에 저장됩니다. 그런 다음 double은 로컬 var f에 저장되고 정수로 잘립니다. 내 대답을 잊어 버려.

이 루틴은 GraphicEx에서 사용되지 않으므로 주석을 제거하십시오. .OBJ 파일에 연결하여

업데이트는 2

다윗이 말했듯이, 그것은 사용할 수있다. 당신이에 연결할 때

function __ftol : Integer; 
// Assumes double value is in FPU stack on entry 
// Make a truncation to integer and put it into function result 
var 
    TmpVal: Int64; 
    SaveCW, ScratchCW: word; 

asm 
    .NOFRAME 

    fnstcw word ptr [SaveCW] 
    fnstcw word ptr [ScratchCW] 
    or word ptr [ScratchCW], 0F00h ;// trunc toward zero, full precision 
    fldcw word ptr [ScratchCW] 
    fistp qword ptr [TmpVal] 
    fldcw word ptr [SaveCW] 
    mov rax, TmpVal 
end;