1
0
Эх сурвалжийг харах

Tracing (callstack request)

Source commit: a854c70049895bfa9d8730fc303a9dac00e84611
Martin Prikryl 7 жил өмнө
parent
commit
85e42ceb8e

+ 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