7

DUnit2を64ビットで動作させようとしていますが、64ビットに変換する方法は言うまでもなく、このメソッドの機能に困惑しています。Pure Pascalの方が優れていますが、スタック(ebp)を参照しているため、不可能な場合があります。

function CallerAddr: Pointer; assembler;
const
  CallerIP = $4;
asm
   mov   eax, ebp
   call  IsBadPointer
   test  eax,eax
   jne   @@Error

   mov   eax, [ebp].CallerIP
   sub   eax, 5   // 5 bytes for call

   push  eax
   call  IsBadPointer
   test  eax,eax
   pop   eax
   je    @@Finish

@@Error:
   xor eax, eax
@@Finish:
end;
4

2 に答える 2

8
function RtlCaptureStackBackTrace(FramesToSkip: ULONG; FramesToCapture: ULONG; 
  out BackTrace: Pointer; BackTraceHash: PULONG): USHORT; stdcall; 
  external 'kernel32.dll' name 'RtlCaptureStackBackTrace' delayed;

function CallerAddr: Pointer;
begin
  // Skip 2 Frames, one for the return of CallerAddr and one for the
  // return of RtlCaptureStackBackTrace
  if RtlCaptureStackBackTrace(2, 1, Result, nil) > 0 then
  begin
    if not IsBadPointer(Result) then
      Result := Pointer(NativeInt(Result) - 5)
    else
      Result := nil;
  end
  else
  begin
    Result := nil;
  end;
end;
于 2012-08-19T01:31:33.803 に答える
-1
function CallerAddr: Pointer; assembler;
    const
      CallerIP = $4;
    asm
       mov   rax, rcx ;For int.. XMM0 for float
       call  IsBadPointer
       test  rax,rax
       jne   @@Error

       mov   rax, [rcx].CallerIP
       sub   rax, 5   // 5 bytes for call

       push  rax
       call  IsBadPointer
       test  rax,rax
       pop   rax
       je    @@Finish

    @@Error:
       xor rax, rax
    @@Finish:
    end;
于 2012-08-18T23:09:51.270 に答える