mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 03:37:54 +02:00
FpDebug: Windows, rewrite of "step after hitting breakpoint". Fix issues with incorrect steps (Instr-Ptr not reset) in multi thread scenario, when the int3 had been remove in the meantime.
This commit is contained in:
Martin
parent
c1b9bfeca9
commit
2f4e270270
@ -232,6 +232,7 @@ type
|
||||
detect the int3 (false positive)
|
||||
*)
|
||||
procedure CheckAndResetInstructionPointerAfterBreakpoint;
|
||||
function CheckForHardcodeBreakPoint(AnAddr: TDBGPtr): boolean;
|
||||
procedure BeforeContinue; virtual;
|
||||
procedure ApplyWatchPoints(AWatchPointData: TFpWatchPointData); virtual;
|
||||
function DetectHardwareWatchpoint: Pointer; virtual;
|
||||
@ -2942,6 +2943,18 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDbgThread.CheckForHardcodeBreakPoint(AnAddr: TDBGPtr): boolean;
|
||||
var
|
||||
OVal: Byte;
|
||||
begin
|
||||
Result := False;
|
||||
if AnAddr = 0 then
|
||||
exit;
|
||||
if FProcess.ReadData(AnAddr, 1, OVal) then
|
||||
FPausedAtHardcodeBreakPoint := OVal = TDbgProcess.Int3;
|
||||
Result := FPausedAtHardcodeBreakPoint;
|
||||
end;
|
||||
|
||||
procedure TDbgThread.BeforeContinue;
|
||||
begin
|
||||
// On Windows this is only called, if this was the signalled thread
|
||||
|
||||
@ -132,11 +132,12 @@ type
|
||||
{ TDbgWinThread }
|
||||
|
||||
TDbgWinThread = class(TDbgThread)
|
||||
private type
|
||||
TBreakPointState = (bsNone, bsInSingleStep);
|
||||
private
|
||||
FHasExceptionCleared: boolean;
|
||||
FIsSuspended: Boolean;
|
||||
FIsSkippingBreakPoint: Boolean;
|
||||
FIsSkippingBreakPointAddress: TDBGPtr;
|
||||
FBreakPointState: TBreakPointState;
|
||||
FDoNotPollName: Boolean;
|
||||
FName: String;
|
||||
protected
|
||||
@ -153,7 +154,6 @@ type
|
||||
procedure Suspend;
|
||||
procedure SuspendForStepOverBreakPoint;
|
||||
procedure Resume;
|
||||
procedure SetSingleStepOverBreakPoint;
|
||||
procedure EndSingleStepOverBreakPoint;
|
||||
procedure SetSingleStep;
|
||||
procedure ApplyWatchPoints(AWatchPointData: TFpWatchPointData); override;
|
||||
@ -252,6 +252,11 @@ const
|
||||
FLAG_TRACE_BIT = $100;
|
||||
{$endif}
|
||||
|
||||
function dbgs(ABrkPointState: TDbgWinThread.TBreakPointState): String;
|
||||
begin
|
||||
WriteStr(Result, ABrkPointState);
|
||||
end;
|
||||
|
||||
function dbgs(AnDbgEvent: DEBUG_EVENT): String; overload;
|
||||
begin
|
||||
case AnDbgEvent.dwDebugEventCode of
|
||||
@ -790,18 +795,21 @@ function TDbgWinProcess.Continue(AProcess: TDbgProcess; AThread: TDbgThread;
|
||||
begin
|
||||
Result := False;
|
||||
for t in FThreadMap do
|
||||
if TDbgWinThread(t).FIsSkippingBreakPoint then begin
|
||||
if TDbgWinThread(t).FBreakPointState = bsInSingleStep then begin
|
||||
Result := True;
|
||||
break;
|
||||
end;
|
||||
debugln(['HasThreadInSkippingBreak ',Result]);
|
||||
end;
|
||||
|
||||
var
|
||||
EventThread, t: TDbgThread;
|
||||
HasExceptionCleared: Boolean;
|
||||
WinEventThread: TDbgWinThread absolute EventThread;
|
||||
WinAThread: TDbgWinThread absolute AThread;
|
||||
HasExceptionCleared, EventThreadNeedsTempBrkRemove: Boolean;
|
||||
begin
|
||||
debugln(FPDBG_WINDOWS, ['TDbgWinProcess.Continue ',SingleStep]);
|
||||
HasExceptionCleared := (AThread <> nil) and TDbgWinThread(AThread).FHasExceptionCleared;
|
||||
debugln(FPDBG_WINDOWS, ['TDbgWinProcess.Continue ',SingleStep, ' # ', ' # ',DbgSTime]);
|
||||
HasExceptionCleared := (WinAThread <> nil) and WinAThread.FHasExceptionCleared;
|
||||
|
||||
if assigned(AThread) and not FThreadMap.HasId(AThread.ID) then begin
|
||||
AThread := nil;
|
||||
@ -813,61 +821,56 @@ debugln(FPDBG_WINDOWS, ['TDbgWinProcess.Continue ',SingleStep]);
|
||||
This may mean suspending the current thread.
|
||||
*)
|
||||
|
||||
(* AThread versus EventThread
|
||||
|
||||
* AThread:
|
||||
- AThread is ONLY passed for the "SingleStep" parameter.
|
||||
|
||||
- If AThread is at breakpoint, and AThread is *not* the event-thread, then
|
||||
AThread must still hit that breakpoint.
|
||||
Only the event-thread has been checked for being at a breakpoint.
|
||||
|
||||
* EventThread
|
||||
- The event-thread will have been checked for being at a breakpoint.
|
||||
It therefore must always step-over, if it is at a breakpoint
|
||||
|
||||
- Except, if the event-thread is at a hardcoded breakpoint.
|
||||
In that case:
|
||||
~ The controller has handled, the hardcoded breakpoint.
|
||||
~ The IP was *not* reset.
|
||||
So the event-thread may already be at the *next* breakpoint.
|
||||
*)
|
||||
|
||||
EventThreadNeedsTempBrkRemove := False;
|
||||
if AProcess.GetThread(MDebugEvent.dwThreadId, EventThread) then begin
|
||||
if EventThread = AThread then
|
||||
EventThread.NextIsSingleStep := SingleStep;
|
||||
EventThreadNeedsTempBrkRemove :=
|
||||
(not EventThread.PausedAtHardcodeBreakPoint) and
|
||||
Process.HasInsertedBreakInstructionAtLocation(EventThread.GetInstructionPointerRegisterValue);
|
||||
|
||||
if HasInsertedBreakInstructionAtLocation(EventThread.GetInstructionPointerRegisterValue) then begin
|
||||
debugln(FPDBG_WINDOWS and DBG_VERBOSE, ['## skip brkpoint ',AThread= EventThread, ' iss ',EventThread.NextIsSingleStep]);
|
||||
TDbgWinThread(EventThread).SetSingleStepOverBreakPoint;
|
||||
if EventThreadNeedsTempBrkRemove then
|
||||
WinEventThread.FBreakPointState := bsInSingleStep;
|
||||
|
||||
for t in FThreadMap do
|
||||
TDbgWinThread(t).SuspendForStepOverBreakPoint;
|
||||
end
|
||||
else begin
|
||||
// EventThread does not need to skip a breakpoint;
|
||||
if (EventThread = AThread) and (SingleStep) then
|
||||
TDbgWinThread(EventThread).SetSingleStep;
|
||||
|
||||
if HasThreadInSkippingBreak then begin
|
||||
debugln(FPDBG_WINDOWS and DBG_VERBOSE, ['## skip brkpoint (others only) ',AThread= EventThread, ' iss ',EventThread.NextIsSingleStep]);
|
||||
// But other threads are still skipping
|
||||
for t in FThreadMap do
|
||||
if not (SingleStep and (t = AThread) and // allow athread to single-step
|
||||
not TDbgWinThread(t).FIsSkippingBreakPoint // already single stepping AND needs TempRemoveBreakInstructionCode
|
||||
)
|
||||
then
|
||||
TDbgWinThread(t).SuspendForStepOverBreakPoint;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (AThread = EventThread) or (assigned(AThread) and TDbgWinThread(AThread).FIsSuspended) then
|
||||
AThread := nil; // Already handled, or suspended
|
||||
end
|
||||
|
||||
else begin // EventThread is gone
|
||||
if HasThreadInSkippingBreak then begin
|
||||
debugln(FPDBG_WINDOWS and DBG_VERBOSE, ['## skip brkpoint (others only) ']);
|
||||
for t in FThreadMap do
|
||||
if not (SingleStep and (t = AThread) and // allow athread to single-step
|
||||
not TDbgWinThread(t).FIsSkippingBreakPoint // already single stepping AND needs TempRemoveBreakInstructionCode
|
||||
)
|
||||
then
|
||||
TDbgWinThread(t).SuspendForStepOverBreakPoint;
|
||||
end;
|
||||
|
||||
if assigned(AThread) and (TDbgWinThread(AThread).FIsSuspended) then
|
||||
AThread := nil; // no need for singlestep yet
|
||||
if ( (EventThread = AThread) and SingleStep ) or
|
||||
( EventThreadNeedsTempBrkRemove )
|
||||
then
|
||||
WinEventThread.SetSingleStep;
|
||||
assert((WinEventThread.FBreakPointState=bsNone) or WinEventThread.NextIsSingleStep, 'TDbgWinProcess.Continue: (WinEventThread.FBreakPointState=bsNone) or WinEventThread.NextIsSingleStep');
|
||||
end;
|
||||
|
||||
if assigned(AThread) then
|
||||
begin
|
||||
AThread.NextIsSingleStep:=SingleStep;
|
||||
if SingleStep then
|
||||
TDbgWinThread(AThread).SetSingleStep;
|
||||
if (AThread <> nil) and (AThread <> EventThread) and SingleStep then
|
||||
WinAThread.SetSingleStep;
|
||||
|
||||
if EventThreadNeedsTempBrkRemove or HasThreadInSkippingBreak then begin
|
||||
debugln(FPDBG_WINDOWS or DBG_VERBOSE, '## Skip BrkPoint: EvntThread Nil=%s ISS=%s TmpRmBreak=%s / Thread Nil=%s ISS=%s ',
|
||||
[ dbgs(EventThread <> nil), dbgs((EventThread<>nil) and EventThread.NextIsSingleStep), dbgs(EventThreadNeedsTempBrkRemove),
|
||||
dbgs(AThread <> nil), dbgs((AThread<>nil) and AThread.NextIsSingleStep) ]);
|
||||
for t in FThreadMap do
|
||||
TDbgWinThread(t).SuspendForStepOverBreakPoint;
|
||||
end;
|
||||
|
||||
|
||||
AProcess.ThreadsBeforeContinue;
|
||||
if AThread<>nil then debugln(FPDBG_WINDOWS, ['## ath.iss ',AThread.NextIsSingleStep]);
|
||||
if AThread<>nil then debugln(FPDBG_WINDOWS, ['## ath.iss ',AThread.NextIsSingleStep]);
|
||||
|
||||
if HasExceptionCleared then
|
||||
result := Windows.ContinueDebugEvent(MDebugEvent.dwProcessId, MDebugEvent.dwThreadId, DBG_CONTINUE)
|
||||
@ -992,10 +995,12 @@ begin
|
||||
ProcessIdentifier:=MDebugEvent.dwProcessId;
|
||||
ThreadIdentifier:=MDebugEvent.dwThreadId;
|
||||
{$IFDEF DebuglnWinDebugEvents}
|
||||
DebugLn(FPDBG_WINDOWS, [dbgs(MDebugEvent), ' ', Result]);
|
||||
DebugLn(FPDBG_WINDOWS, [dbgs(MDebugEvent), ' ', Result, ' # ',DbgSTime]);
|
||||
for TDbgThread(t) in FThreadMap do begin
|
||||
if t.ReadThreadState then
|
||||
DebugLn(FPDBG_WINDOWS, 'Thr.Id:%d %x SSTep %s EF %s DR6:%x DR7:%x WP:%x RegAcc: %d, SStep: %d Task: %d, ExcBrk: %d', [t.ID, t.GetInstructionPointerRegisterValue, dbgs(t.FCurrentContext^.def.EFlags and FLAG_TRACE_BIT), dbghex(t.FCurrentContext^.def.EFlags), t.FCurrentContext^.def.Dr6, t.FCurrentContext^.def.Dr7, t.FCurrentContext^.def.Dr6 and 15, t.FCurrentContext^.def.Dr6 and (1<< 13), t.FCurrentContext^.def.Dr6 and (1<< 14), t.FCurrentContext^.def.Dr6 and (1<< 15), t.FCurrentContext^.def.Dr6 and (1<< 16)]);
|
||||
DebugLn(FPDBG_WINDOWS,
|
||||
'Thr.Id:%d %x SSTep %s EF %s DR6:%x DR7:%x WP:%x RegAcc: %d, SStep: %d Task: %d, ExcBrk: %d Susp: %s, ISS: %s BS:%s',
|
||||
[t.ID, t.GetInstructionPointerRegisterValue, dbgs(t.FCurrentContext^.def.EFlags and FLAG_TRACE_BIT), dbghex(t.FCurrentContext^.def.EFlags), t.FCurrentContext^.def.Dr6, t.FCurrentContext^.def.Dr7, t.FCurrentContext^.def.Dr6 and 15, t.FCurrentContext^.def.Dr6 and (1<< 13), t.FCurrentContext^.def.Dr6 and (1<< 14), t.FCurrentContext^.def.Dr6 and (1<< 15), t.FCurrentContext^.def.Dr6 and (1<< 16), dbgs(t.FIsSuspended), dbgs(t.NextIsSingleStep), dbgs(t.FBreakPointState) ]);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
@ -1295,10 +1300,11 @@ begin
|
||||
else begin
|
||||
result := deBreakpoint;
|
||||
if AThread <> nil then
|
||||
AThread.CheckAndResetInstructionPointerAfterBreakpoint;
|
||||
TDbgWinThread(AThread).ResetInstructionPointerAfterBreakpoint; // This is always an int3 breakpoint
|
||||
end;
|
||||
end;
|
||||
EXCEPTION_SINGLE_STEP, STATUS_WX86_SINGLE_STEP: begin
|
||||
// includes WatchPoints
|
||||
result := deBreakpoint;
|
||||
end;
|
||||
EXCEPTION_SET_THREADNAME: begin
|
||||
@ -1666,11 +1672,18 @@ begin
|
||||
end;
|
||||
|
||||
procedure TDbgWinThread.SuspendForStepOverBreakPoint;
|
||||
var
|
||||
t: TDBGPtr;
|
||||
begin
|
||||
if FIsSkippingBreakPoint then begin
|
||||
if GetInstructionPointerRegisterValue = FIsSkippingBreakPointAddress then
|
||||
Process.TempRemoveBreakInstructionCode(FIsSkippingBreakPointAddress);
|
||||
// else the single step should be done, and the event should be received next
|
||||
t := GetInstructionPointerRegisterValue;
|
||||
if (FBreakPointState = bsInSingleStep)
|
||||
// or (NextIsSingleStep)
|
||||
then begin
|
||||
Process.TempRemoveBreakInstructionCode(t);
|
||||
end
|
||||
else
|
||||
if NextIsSingleStep and (not Process.HasInsertedBreakInstructionAtLocation(t)) then begin
|
||||
// nothing / do the single step
|
||||
end
|
||||
else
|
||||
Suspend;
|
||||
@ -1687,20 +1700,15 @@ begin
|
||||
debugln(DBG_WARNINGS and (r = DWORD(-1)), 'Failed to resume Thread %d (handle: %d). Error: %s', [Id, Handle, GetLastErrorText]);
|
||||
end;
|
||||
|
||||
procedure TDbgWinThread.SetSingleStepOverBreakPoint;
|
||||
begin
|
||||
SetSingleStep;
|
||||
FIsSkippingBreakPoint := True;
|
||||
FIsSkippingBreakPointAddress := GetInstructionPointerRegisterValue;
|
||||
end;
|
||||
|
||||
procedure TDbgWinThread.EndSingleStepOverBreakPoint;
|
||||
begin
|
||||
FIsSkippingBreakPoint := False;
|
||||
FBreakPointState := bsNone;
|
||||
end;
|
||||
|
||||
procedure TDbgWinThread.SetSingleStep;
|
||||
begin
|
||||
NextIsSingleStep := True;
|
||||
|
||||
if FCurrentContext = nil then
|
||||
if not ReadThreadState then
|
||||
exit;
|
||||
@ -1818,7 +1826,7 @@ function TDbgWinThread.ResetInstructionPointerAfterBreakpoint: boolean;
|
||||
begin
|
||||
{$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadId('TDbgWinThread.ResetInstructionPointerAfterBreakpoint');{$ENDIF}
|
||||
assert(MDebugEvent.dwProcessId <> 0, 'TDbgWinThread.ResetInstructionPointerAfterBreakpoint: MDebugEvent.dwProcessId <> 0');
|
||||
assert(MDebugEvent.Exception.ExceptionRecord.ExceptionCode <> EXCEPTION_SINGLE_STEP, 'dec(IP) EXCEPTION_SINGLE_STEP');
|
||||
assert((MDebugEvent.Exception.ExceptionRecord.ExceptionCode = EXCEPTION_BREAKPOINT) or (MDebugEvent.Exception.ExceptionRecord.ExceptionCode = STATUS_WX86_BREAKPOINT), 'TDbgWinThread.ResetInstructionPointerAfterBreakpoint: (MDebugEvent.Exception.ExceptionRecord.ExceptionCode = EXCEPTION_BREAKPOINT) or (MDebugEvent.Exception.ExceptionRecord.ExceptionCode = STATUS_WX86_BREAKPOINT)');
|
||||
|
||||
Result := False;
|
||||
|
||||
@ -1826,13 +1834,16 @@ begin
|
||||
exit;
|
||||
|
||||
{$ifdef cpui386}
|
||||
dec(FCurrentContext^.def.Eip);
|
||||
if not CheckForHardcodeBreakPoint(FCurrentContext^.def.Eip - 1) then
|
||||
dec(FCurrentContext^.def.Eip);
|
||||
{$else}
|
||||
if (TDbgWinProcess(Process).FBitness = b32) then begin
|
||||
dec(FCurrentContext^.WOW.Eip);
|
||||
if not CheckForHardcodeBreakPoint(FCurrentContext^.WOW.Eip - 1) then
|
||||
dec(FCurrentContext^.WOW.Eip);
|
||||
end
|
||||
else begin
|
||||
dec(FCurrentContext^.def.Rip);
|
||||
if not CheckForHardcodeBreakPoint(FCurrentContext^.def.Rip - 1) then
|
||||
dec(FCurrentContext^.def.Rip);
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
|
||||
@ -17,6 +17,7 @@ type
|
||||
|
||||
var
|
||||
x, BreakDummy: Integer;
|
||||
ThrCount: Integer = 0;
|
||||
|
||||
{$asmMode intel}
|
||||
|
||||
@ -27,23 +28,24 @@ testasmlbl1, testasmlbl2;
|
||||
|
||||
procedure TTestThread.Execute;
|
||||
begin
|
||||
InterlockedIncrement(ThrCount);
|
||||
asm
|
||||
nop // TEST_BREAKPOINT=BrkThreadBegin
|
||||
xor eax, eax
|
||||
xor ebx, ebx
|
||||
add eax, 10
|
||||
add eax, 1023
|
||||
testasmlbl1:
|
||||
sub eax, 10
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread1
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread2
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread3
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread4
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread5
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread6
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread7
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread8
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread9
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread10
|
||||
sub eax, 1023
|
||||
add eax, 1 // TEST_BREAKPOINT=BrkThread1
|
||||
add eax, 2 // TEST_BREAKPOINT=BrkThread2
|
||||
add eax, 4 // TEST_BREAKPOINT=BrkThread3
|
||||
add eax, 8 // TEST_BREAKPOINT=BrkThread4
|
||||
add eax, 16 // TEST_BREAKPOINT=BrkThread5
|
||||
add eax, 32 // TEST_BREAKPOINT=BrkThread6
|
||||
add eax, 64 // TEST_BREAKPOINT=BrkThread7
|
||||
add eax, 128 // TEST_BREAKPOINT=BrkThread8
|
||||
add eax, 256 // TEST_BREAKPOINT=BrkThread9
|
||||
add eax, 512 // TEST_BREAKPOINT=BrkThread10
|
||||
|
||||
add ebx, 1 // TEST_BREAKPOINT=BrkThreadIncLoop
|
||||
jmp testasmlbl1 // TEST_BREAKPOINT=BrkThread11
|
||||
@ -67,6 +69,7 @@ begin
|
||||
TTestThread.Create(False);
|
||||
TTestThread.Create(False);
|
||||
|
||||
while ThrCount < 10 do sleep(20);
|
||||
sleep(500);
|
||||
BreakDummy := 1;
|
||||
|
||||
|
||||
@ -13,19 +13,20 @@ uses
|
||||
type
|
||||
|
||||
// Info used by tests based on TestBreakPointThreadPrg
|
||||
TBreakThreadPrgInfoEntry = record
|
||||
ID: Integer;
|
||||
Address: TDBGPtr;
|
||||
Line, PreviousLine: Integer;
|
||||
Val, LastVal: int64; // AX register
|
||||
Loop, PreviousLoop: int64; // BX register
|
||||
IsCurrent: Boolean;
|
||||
LastBrkLine, LastBrkLoop: Integer;
|
||||
PreviousLastBrkLine, PreviousLastBrkLoop: Integer;
|
||||
end;
|
||||
TBreakThreadPrgInfo = record
|
||||
ThrLoopFirst, ThrLoopLast, ThrLoopLine0, ThrLoopInc: Integer;
|
||||
ThrLoopFirst, ThrLoopLast, ThrLoopLine0, ThrLoopInc: Integer; // Linenumbers of the breakpoints
|
||||
// -1 => Main thread
|
||||
Threads: array[-1..10] of record
|
||||
ID: Integer;
|
||||
Address: TDBGPtr;
|
||||
Line, LastLine: Integer;
|
||||
Val, LastVal: int64;
|
||||
Loop, LastLoop: int64;
|
||||
IsCurrent: Boolean;
|
||||
LastBrkLine, LastBrkLoop: Integer;
|
||||
PrevLastBrkLine, PrevLastBrkLoop: Integer;
|
||||
end;
|
||||
Threads: array[-1..10] of TBreakThreadPrgInfoEntry;
|
||||
end;
|
||||
|
||||
{ TTestBreakPoint }
|
||||
@ -36,7 +37,19 @@ type
|
||||
FThrPrgInfo: TBreakThreadPrgInfo;
|
||||
procedure ThrPrgInitializeThreads(ATestName: String);
|
||||
procedure ThrPrgUpdateThreads(ATestName: String);
|
||||
|
||||
(* ThrPrgCheckNoSkip
|
||||
Check that AX is correct for the line.
|
||||
Ensure the instruction restored from "int3" was executed
|
||||
*)
|
||||
procedure ThrPrgCheckNoSkip(ATestName: String='');
|
||||
(* ThrPrgInfoHasGoneThroughLine
|
||||
Has gone over the line WITHOUT stopping at the breakpoint
|
||||
- If the thread was NOT on the line, it has gone over it at least once.
|
||||
- if the thread was AT the line,
|
||||
~ and had NOT reorted yet for the line => it as gone away from the line anyway
|
||||
~ and had reported for the line => it has gone OVER the line in the NEXT loop already
|
||||
*)
|
||||
function ThrPrgInfoHasGoneThroughLine(AIndex, ALine: Integer): boolean;
|
||||
protected
|
||||
Src: TCommonSource;
|
||||
@ -331,7 +344,10 @@ begin
|
||||
end;
|
||||
|
||||
FThrPrgInfo.Threads[j].ID := t.ThreadId;
|
||||
FThrPrgInfo.Threads[j].Line := -1;
|
||||
FThrPrgInfo.Threads[j].Loop := -5;
|
||||
FThrPrgInfo.Threads[j].LastBrkLine := -1;
|
||||
FThrPrgInfo.Threads[j].PreviousLastBrkLine := -1;
|
||||
debugln(['++ ADDED tid ',t.ThreadId]);
|
||||
inc(j);
|
||||
if j >= 11 then
|
||||
@ -373,9 +389,12 @@ begin
|
||||
if (lowercase(r.Entries[j].Name) = 'ebx') or (lowercase(r.Entries[j].Name) = 'rbx')
|
||||
then
|
||||
bx := r.Entries[j];
|
||||
FThrPrgInfo.Threads[i].LastLine := FThrPrgInfo.Threads[i].Line;
|
||||
|
||||
FThrPrgInfo.Threads[i].IsCurrent := FThrPrgInfo.Threads[i].ID = dbg.Threads.CurrentThreads.CurrentThreadId;
|
||||
|
||||
FThrPrgInfo.Threads[i].PreviousLine := FThrPrgInfo.Threads[i].Line;
|
||||
FThrPrgInfo.Threads[i].LastVal := FThrPrgInfo.Threads[i].Val;
|
||||
FThrPrgInfo.Threads[i].LastLoop := FThrPrgInfo.Threads[i].Loop;
|
||||
FThrPrgInfo.Threads[i].PreviousLoop := FThrPrgInfo.Threads[i].Loop;
|
||||
FThrPrgInfo.Threads[i].Address := t.TopFrame.Address;
|
||||
FThrPrgInfo.Threads[i].Line := t.TopFrame.Line;
|
||||
if ax <> nil then
|
||||
@ -383,25 +402,23 @@ begin
|
||||
if bx <> nil then
|
||||
FThrPrgInfo.Threads[i].Loop := StrToInt64Def(bx.Value,-1) and $7FFFFFFF;
|
||||
|
||||
FThrPrgInfo.Threads[i].IsCurrent := False;
|
||||
if FThrPrgInfo.Threads[i].ID = dbg.Threads.CurrentThreads.CurrentThreadId then begin
|
||||
FThrPrgInfo.Threads[i].IsCurrent := True;
|
||||
|
||||
FThrPrgInfo.Threads[i].PrevLastBrkLine := FThrPrgInfo.Threads[i].LastBrkLine;
|
||||
FThrPrgInfo.Threads[i].PrevLastBrkLoop := FThrPrgInfo.Threads[i].LastBrkLoop;
|
||||
FThrPrgInfo.Threads[i].PreviousLastBrkLine := FThrPrgInfo.Threads[i].LastBrkLine;
|
||||
FThrPrgInfo.Threads[i].PreviousLastBrkLoop := FThrPrgInfo.Threads[i].LastBrkLoop;
|
||||
|
||||
FThrPrgInfo.Threads[i].LastBrkLine := FThrPrgInfo.Threads[i].Line;
|
||||
FThrPrgInfo.Threads[i].LastBrkLoop := FThrPrgInfo.Threads[i].Loop;
|
||||
end;
|
||||
|
||||
debugln('Thread %d %s (%x): Line: %d (%d) (was %d) Val: %d (was %d) LOOP: %d (was %d) Brk: %d %d (%d %d)', [
|
||||
debugln('Thread %d: ID=%d Cur=%s (%x): Line: %d (%d) (was %d) Val: %d (was %d) LOOP: %d (was %d) Brk: %d %d (%d %d)', [
|
||||
i,
|
||||
FThrPrgInfo.Threads[i].ID, dbgs(FThrPrgInfo.Threads[i].IsCurrent), FThrPrgInfo.Threads[i].Address,
|
||||
FThrPrgInfo.Threads[i].Line-FThrPrgInfo.ThrLoopLine0, FThrPrgInfo.Threads[i].Line,
|
||||
FThrPrgInfo.Threads[i].LastLine-FThrPrgInfo.ThrLoopLine0,
|
||||
FThrPrgInfo.Threads[i].PreviousLine-FThrPrgInfo.ThrLoopLine0,
|
||||
FThrPrgInfo.Threads[i].Val, FThrPrgInfo.Threads[i].LastVal,
|
||||
FThrPrgInfo.Threads[i].Loop, FThrPrgInfo.Threads[i].LastLoop,
|
||||
FThrPrgInfo.Threads[i].Loop, FThrPrgInfo.Threads[i].PreviousLoop,
|
||||
FThrPrgInfo.Threads[i].LastBrkLine, FThrPrgInfo.Threads[i].LastBrkLoop,
|
||||
FThrPrgInfo.Threads[i].PrevLastBrkLine, FThrPrgInfo.Threads[i].PrevLastBrkLoop
|
||||
FThrPrgInfo.Threads[i].PreviousLastBrkLine, FThrPrgInfo.Threads[i].PreviousLastBrkLoop
|
||||
]);
|
||||
end;
|
||||
end;
|
||||
@ -410,43 +427,68 @@ procedure TTestBreakPoint.ThrPrgCheckNoSkip(ATestName: String);
|
||||
// Make sure no thread skipped any add. All EAX values must be correct
|
||||
var
|
||||
i, l: Integer;
|
||||
const
|
||||
ExpVal: array[0..10] of integer = (
|
||||
0, 1, 3, 7, 15,
|
||||
31, 63, 127, 255, 511,
|
||||
1023
|
||||
);
|
||||
begin
|
||||
for i := 0 to 9 do begin
|
||||
if FThrPrgInfo.Threads[i].Line = -1 then
|
||||
continue;
|
||||
l := FThrPrgInfo.Threads[i].Line - FThrPrgInfo.ThrLoopLine0;
|
||||
TestTrue(ATestName+' line in range tid: '+inttostr(FThrPrgInfo.Threads[i].ID), (l>=-1) and (l<FThrPrgInfo.ThrLoopLast-FThrPrgInfo.ThrLoopLine0));
|
||||
if l > 9 then l := 10;
|
||||
if l < 0 then l := 10;
|
||||
|
||||
TestEquals(ATestName+' Reg val for '+inttostr(FThrPrgInfo.Threads[i].ID)+ ' / '+inttostr(FThrPrgInfo.Threads[i].Line - FThrPrgInfo.ThrLoopLine0), l, FThrPrgInfo.Threads[i].Val);
|
||||
TestEquals(ATestName+' Reg val for '+inttostr(FThrPrgInfo.Threads[i].ID)+ ' / '+inttostr(FThrPrgInfo.Threads[i].Line - FThrPrgInfo.ThrLoopLine0),
|
||||
ExpVal[l],
|
||||
FThrPrgInfo.Threads[i].Val
|
||||
);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TTestBreakPoint.ThrPrgInfoHasGoneThroughLine(AIndex, ALine: Integer): boolean;
|
||||
var
|
||||
LoopAdjust, LastLoopAdjust: Integer;
|
||||
LoopDiff: Integer;
|
||||
Entry: TBreakThreadPrgInfoEntry;
|
||||
begin
|
||||
Result := True;
|
||||
LoopAdjust := 0;
|
||||
if FThrPrgInfo.Threads[AIndex].Line > FThrPrgInfo.ThrLoopInc then LoopAdjust := 1;
|
||||
Entry := FThrPrgInfo.Threads[AIndex];
|
||||
|
||||
if Entry.Line > FThrPrgInfo.ThrLoopInc then LoopAdjust := 1;
|
||||
LastLoopAdjust := 0;
|
||||
if FThrPrgInfo.Threads[AIndex].LastLine > FThrPrgInfo.ThrLoopInc then LastLoopAdjust := 1;
|
||||
if Entry.PreviousLine > FThrPrgInfo.ThrLoopInc then LastLoopAdjust := 1;
|
||||
LoopDiff :=
|
||||
(Entry.Loop-LoopAdjust)
|
||||
- (Entry.PreviousLoop-LastLoopAdjust);
|
||||
|
||||
// Was in front of line, and now after (or even in next loop)?
|
||||
if (FThrPrgInfo.Threads[AIndex].LastLine < ALine) and
|
||||
( (FThrPrgInfo.Threads[AIndex].Line > ALine) or (FThrPrgInfo.Threads[AIndex].Loop-LoopAdjust <> FThrPrgInfo.Threads[AIndex].LastLoop-LastLoopAdjust) )
|
||||
if (Entry.PreviousLine < ALine) and
|
||||
( (Entry.Line > ALine) or
|
||||
(LoopDiff > 0)
|
||||
)
|
||||
then
|
||||
exit;
|
||||
// Was after line, and now after AND in next loop-LoopAdjust?
|
||||
if (Entry.PreviousLine > ALine) and
|
||||
(Entry.Line > ALine) and
|
||||
(LoopDiff > 0)
|
||||
then
|
||||
exit;
|
||||
|
||||
// Was exactly at line, and now after AND in next loop-LoopAdjust?
|
||||
if (FThrPrgInfo.Threads[AIndex].LastLine = ALine) and
|
||||
(FThrPrgInfo.Threads[AIndex].Line > ALine) and (FThrPrgInfo.Threads[AIndex].Loop-LoopAdjust <> FThrPrgInfo.Threads[AIndex].LastLoop-LastLoopAdjust)
|
||||
then
|
||||
exit;
|
||||
// Was after front of line, and now after AND in next loop-LoopAdjust?
|
||||
if (FThrPrgInfo.Threads[AIndex].LastLine < ALine) and
|
||||
(FThrPrgInfo.Threads[AIndex].Line > ALine) and (FThrPrgInfo.Threads[AIndex].Loop-LoopAdjust <> FThrPrgInfo.Threads[AIndex].LastLoop-LastLoopAdjust)
|
||||
if (Entry.PreviousLine = ALine) and
|
||||
(Entry.Line > ALine) and
|
||||
(LoopDiff > 1)
|
||||
then
|
||||
exit;
|
||||
|
||||
// More than one loop-LoopAdjust ...
|
||||
if (FThrPrgInfo.Threads[AIndex].Loop-LoopAdjust > FThrPrgInfo.Threads[AIndex].LastLoop-LastLoopAdjust + 1)
|
||||
if (LoopDiff > 1)
|
||||
then
|
||||
exit;
|
||||
Result := False;
|
||||
@ -463,16 +505,17 @@ procedure TTestBreakPoint.TestBreakThreadsNoSkip;
|
||||
if FThrPrgInfo.Threads[i].Line = ALine then
|
||||
inc(AtLine)
|
||||
else
|
||||
if FThrPrgInfo.Threads[i].LastLine = ALine then // Current line moved on, stepped over break
|
||||
if FThrPrgInfo.Threads[i].PreviousLine = ALine then // Current line moved on, stepped over break
|
||||
inc(AfterLine);
|
||||
if AtLine > 1 then Inc(AManyAt);
|
||||
if AfterLine > 1 then Inc(AManyAfter);
|
||||
if AtLine > 3 then Inc(AManyAt);
|
||||
if AfterLine > 2 then Inc(AManyAfter);
|
||||
end;
|
||||
var
|
||||
ExeName: String;
|
||||
i, j: Integer;
|
||||
MainBrk, Brk1, Brk2, Brk3, Brk4, Brk5: TDBGBreakPoint;
|
||||
ManyAtBrk1, ManyAfterBrk1: Integer;
|
||||
Entry: TBreakThreadPrgInfoEntry;
|
||||
begin
|
||||
if SkipTest then exit;
|
||||
if not TestControlCanTest(ControlTestThreadNoSkip) then exit;
|
||||
@ -502,26 +545,37 @@ begin
|
||||
|
||||
Brk1 := Debugger.SetBreakPoint(Src, 'BrkThread1');
|
||||
|
||||
(* ManyAtBrk1 / ManyAfterBrk1
|
||||
Cumulative count accross all "j" loop iterations.
|
||||
ManyAtBrk1: Count "j"-iterations with at least 3 threads have been at "Brk1"
|
||||
ManyAfterBrk1: Count "j"-iterations with at least 3 threads just stepped/run away from "Brk1"
|
||||
*)
|
||||
ManyAtBrk1 := 0;
|
||||
ManyAfterBrk1 := 0;
|
||||
for j := 0 to 200 do begin
|
||||
|
||||
(* Each iteration the test checks that all "add eax, n" have been executed.
|
||||
*)
|
||||
for j := 0 to 300 do begin
|
||||
AssertDebuggerNotInErrorState;
|
||||
Debugger.RunToNextPause(dcRun);
|
||||
AssertDebuggerState(dsPause);
|
||||
|
||||
ThrPrgUpdateThreads('loop fixed brk '+IntToStr(j));
|
||||
ThrPrgCheckNoSkip('loop, fixed brk '+IntToStr(j));
|
||||
ThrPrgCheckNoSkip('loop, fixed brk '+IntToStr(j)); // Compare AX with line
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
|
||||
TestTrue('THread not gone over break 1 at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line)
|
||||
);
|
||||
|
||||
HasManyAtLine(Brk1.Line, ManyAtBrk1, ManyAfterBrk1);
|
||||
end;
|
||||
|
||||
if (i > 50) and (ManyAtBrk1 > 5) and (ManyAfterBrk1 > 5) then begin
|
||||
DebugLn('~~~~~~~~~~~~~ End loop early i=%d at=%d after=%d', [i, ManyAtBrk1, ManyAfterBrk1]);
|
||||
HasManyAtLine(Brk1.Line, ManyAtBrk1, ManyAfterBrk1);
|
||||
if (j > 50) and (ManyAtBrk1 > 20) and (ManyAfterBrk1 > 15) then begin
|
||||
DebugLn('~~~~~~~~~~~~~ End loop early j=%d at=%d after=%d', [j, ManyAtBrk1, ManyAfterBrk1]);
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
@ -531,6 +585,11 @@ begin
|
||||
// Add more breaks
|
||||
Brk3 := Debugger.SetBreakPoint(Src, 'BrkThread5');
|
||||
Brk5 := Debugger.SetBreakPoint(Src, 'BrkThread9');
|
||||
// clear values from last loop
|
||||
for i := 0 to 9 do begin
|
||||
FThrPrgInfo.Threads[i].LastBrkLine := -1;
|
||||
FThrPrgInfo.Threads[i].PreviousLastBrkLine := -1;
|
||||
end;
|
||||
|
||||
for j := 0 to 100 do begin
|
||||
AssertDebuggerNotInErrorState;
|
||||
@ -541,21 +600,47 @@ begin
|
||||
ThrPrgCheckNoSkip('loop, fixed brk '+IntToStr(j));
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
TestTrue('THread not gone over break 1 at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
|
||||
TestTrue('THread not gone over break(n/3) 1 at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 3 at line '+IntToStr(Brk3.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/3) 3 at line '+IntToStr(Brk3.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk3.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 5 at line '+IntToStr(Brk5.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/3) 5 at line '+IntToStr(Brk5.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk5.Line)
|
||||
);
|
||||
|
||||
if Entry.PreviousLastBrkLine > 0 then begin
|
||||
if Entry.LastBrkLine = Brk1.Line then begin
|
||||
TestEquals('Previous break(n/3) before Brk1', Brk5.Line, Entry.PreviousLastBrkLine);
|
||||
TestTrue ('Previous break-loop(n/3) before Brk1', Entry.LastBrkLoop = Entry.PreviousLastBrkLoop + 1);
|
||||
end
|
||||
else
|
||||
if Entry.LastBrkLine = Brk3.Line then begin
|
||||
TestEquals('Previous break(n/3) before Brk3', Brk1.Line, Entry.PreviousLastBrkLine);
|
||||
TestTrue ('Previous break-loop(n/3) before Brk3', Entry.LastBrkLoop = Entry.PreviousLastBrkLoop);
|
||||
end
|
||||
else
|
||||
if Entry.LastBrkLine = Brk5.Line then begin
|
||||
TestEquals('Previous break(n/3) before Brk5', Brk3.Line, Entry.PreviousLastBrkLine);
|
||||
TestTrue ('Previous break-loop(n/3) before Brk5', Entry.LastBrkLoop = Entry.PreviousLastBrkLoop);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Add more breaks
|
||||
Brk2 := Debugger.SetBreakPoint(Src, 'BrkThread3');
|
||||
Brk4 := Debugger.SetBreakPoint(Src, 'BrkThread7');
|
||||
// clear values from last loop
|
||||
for i := 0 to 9 do begin
|
||||
FThrPrgInfo.Threads[i].LastBrkLine := -1;
|
||||
FThrPrgInfo.Threads[i].PreviousLastBrkLine := -1;
|
||||
end;
|
||||
|
||||
for j := 0 to 100 do begin
|
||||
AssertDebuggerNotInErrorState;
|
||||
@ -566,21 +651,26 @@ begin
|
||||
ThrPrgCheckNoSkip('loop, fixed brk '+IntToStr(j));
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
TestTrue('THread not gone over break 1 at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
|
||||
TestTrue('THread not gone over break(n/5) 1 at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 2 at line '+IntToStr(Brk2.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/5) 2 at line '+IntToStr(Brk2.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk2.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 3 at line '+IntToStr(Brk3.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/5) 3 at line '+IntToStr(Brk3.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk3.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 4 at line '+IntToStr(Brk4.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/5) 4 at line '+IntToStr(Brk4.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk4.Line)
|
||||
);
|
||||
TestTrue('THread not gone over break 5 at line '+IntToStr(Brk5.Line)+' '+IntToStr(i),
|
||||
TestTrue('THread not gone over break(n/5) 5 at line '+IntToStr(Brk5.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk5.Line)
|
||||
);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -599,6 +689,7 @@ var
|
||||
ExeName: String;
|
||||
i, j: Integer;
|
||||
MainBrk, Brk1: TDBGBreakPoint;
|
||||
Entry: TBreakThreadPrgInfoEntry;
|
||||
begin
|
||||
if SkipTest then exit;
|
||||
if not TestControlCanTest(ControlTestThreadMove1) then exit;
|
||||
@ -634,6 +725,9 @@ begin
|
||||
ThrPrgCheckNoSkip('loop, one brk '+IntToStr(j));
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
TestTrue('THread not gone over break at line '+IntToStr(Brk1.Line)+' '+IntToStr(i),
|
||||
not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line)
|
||||
);
|
||||
@ -658,6 +752,7 @@ var
|
||||
ExeName: String;
|
||||
i, j: Integer;
|
||||
MainBrk, Brk1, Brk2, Brk3, Brk4, Brk5: TDBGBreakPoint;
|
||||
Entry: TBreakThreadPrgInfoEntry;
|
||||
begin
|
||||
if SkipTest then exit;
|
||||
if not TestControlCanTest(ControlTestThreadMove2) then exit;
|
||||
@ -703,6 +798,9 @@ begin
|
||||
ThrPrgCheckNoSkip('loop, changing brk '+IntToStr(j));
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line) );
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk2.Line) );
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk3.Line) );
|
||||
@ -728,7 +826,7 @@ procedure TTestBreakPoint.TestBreakThreadsHitBreak;
|
||||
begin
|
||||
Result := True; // defaults to ok, if Line is not in this range.
|
||||
if FThrPrgInfo.Threads[AnIdx].LastBrkLine = -1 then exit;
|
||||
if FThrPrgInfo.Threads[AnIdx].PrevLastBrkLine = -1 then exit;
|
||||
if FThrPrgInfo.Threads[AnIdx].PreviousLastBrkLine = -1 then exit;
|
||||
|
||||
if FThrPrgInfo.Threads[AnIdx].Line = BrkLine then begin
|
||||
if FThrPrgInfo.Threads[AnIdx].IsCurrent then
|
||||
@ -739,8 +837,8 @@ procedure TTestBreakPoint.TestBreakThreadsHitBreak;
|
||||
if FThrPrgInfo.Threads[AnIdx].Line = NextBrkLine then begin
|
||||
if (FThrPrgInfo.Threads[AnIdx].LastBrkLine = NextBrkLine) then
|
||||
Result := (FThrPrgInfo.Threads[AnIdx].LastBrkLoop = FThrPrgInfo.Threads[AnIdx].Loop) and
|
||||
(FThrPrgInfo.Threads[AnIdx].PrevLastBrkLine = BrkLine)
|
||||
// PrevLastBrkLoop can be equal or 1 less
|
||||
(FThrPrgInfo.Threads[AnIdx].PreviousLastBrkLine = BrkLine)
|
||||
// PreviousLastBrkLoop can be equal or 1 less
|
||||
else
|
||||
Result := (FThrPrgInfo.Threads[AnIdx].LastBrkLine = BrkLine)
|
||||
;
|
||||
@ -769,6 +867,7 @@ var
|
||||
ExeName: String;
|
||||
i, j: Integer;
|
||||
MainBrk, Brk1, Brk2, Brk3, Brk4, Brk5: TDBGBreakPoint;
|
||||
Entry: TBreakThreadPrgInfoEntry;
|
||||
begin
|
||||
if SkipTest then exit;
|
||||
if not TestControlCanTest(ControlTestThreadHit) then exit;
|
||||
@ -803,6 +902,9 @@ begin
|
||||
ThrPrgCheckNoSkip('loop, changing brk '+IntToStr(j));
|
||||
|
||||
for i := 0 to 9 do begin
|
||||
Entry := FThrPrgInfo.Threads[i];
|
||||
if Entry.PreviousLine < 0 then
|
||||
continue;
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk1.Line) );
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk2.Line) );
|
||||
TestTrue('THread not gone over break '+IntToStr(i), not ThrPrgInfoHasGoneThroughLine(i, Brk3.Line) );
|
||||
|
||||
Loading…
Reference in New Issue
Block a user