paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 13:59:10 +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

5
debugger/gdbtypeinfo.pp
View File

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