clean up test code from r58522 #62434fa788 / Fix "goto execution point" Issue #0034175

git-svn-id: trunk@58771 -
This commit is contained in:
martin 2018-08-24 15:17:37 +00:00
parent 4907624f26
commit 6fae020d54

View File

@ -1480,7 +1480,6 @@ begin
i:=0;
TId := Threads.CurrentThreads.CurrentThreadId;
c := CallStack.CurrentCallStackList.EntriesForThreads[TId].CountLimited(30);
c := -1;
while (i < c) do
begin
StackEntry := CallStack.CurrentCallStackList.EntriesForThreads[TId].Entries[i];