paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: improve cache / fix compare none case-sensitive

Browse Source 
git-svn-id: trunk@43302 -
This commit is contained in:
martin 2013-10-23 12:32:20 +00:00
parent 4e2db184a7
commit e1a4c01ac8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbtypeinfo.pp
View File

@ -2000,13 +2000,15 @@ function TGDBPTypeRequestCache.IndexOf(AThreadId, AStackFrame: Integer;
ARequest: TGDBPTypeRequest): Integer;
var
e: TGDBPTypeRequestCacheEntry;
s: String;
begin
Result := FList.Count - 1;
s := UpperCase(ARequest.Request);
while Result >= 0 do begin
e := TGDBPTypeRequestCacheEntry(FList[Result]);
if (e.ThreadId = AThreadId) and (e.StackFrame = AStackFrame) and
(e.Request.Request =ARequest.Request) and
(e.Request.ReqType =ARequest.ReqType)
(e.Request.Request = s) and
(e.Request.ReqType = ARequest.ReqType)
then
exit;
dec(Result);
@ -2022,6 +2024,7 @@ begin
e.FThreadId := AThreadId;
e.FStackFrame := AStackFrame;
e.FRequest := ARequest;
e.FRequest.Request := UpperCase(e.FRequest.Request);
e.FRequest.Next := nil;
FList.Add(e);
end;