浏览代码

Tracing (callstack request)

Source commit: a854c70049895bfa9d8730fc303a9dac00e84611
Martin Prikryl 7 年之前
父节点
当前提交
85e42ceb8e
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      source/packages/jcl/JclDebug.pas

+ 2 - 0
source/packages/jcl/JclDebug.pas

@@ -5050,8 +5050,10 @@ begin
     AlignedContext^.ContextFlags := CONTEXT_FULL;
     {$IFDEF CPU32}
     if GetThreadContext(ThreadHandle, AlignedContext^) then
+    begin
       Result := JclCreateStackList(Raw, -1, Pointer(AlignedContext^.Eip), False, Pointer(AlignedContext^.Ebp),
                   Pointer(GetThreadTopOfStack(ThreadHandle)));
+    end;
     {$ENDIF CPU32}
     {$IFDEF CPU64}
     if GetThreadContext(ThreadHandle, AlignedContext^) then