From e1a4c01ac8b91e04309bd108b8f3aea8ac520f34 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 23 Oct 2013 12:32:20 +0000
Subject: [PATCH] Debugger: improve cache / fix compare none case-sensitive

git-svn-id: trunk@43302 -
---
 debugger/gdbtypeinfo.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbtypeinfo.pp b/debugger/gdbtypeinfo.pp
index 10c1c09ba7..27eb67eaa3 100644
--- a/debugger/gdbtypeinfo.pp
+++ b/debugger/gdbtypeinfo.pp
@@ -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;