From 3527bd4fd0a8772219bdf2ec494f509c71a5cc99 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 13 Mar 2000 20:28:12 +0000
Subject: [PATCH]  * X was not found in TSortedSymbolCollection.LookUp

---
 compiler/browcol.pas | 39 +++++++++++++++++++++++++++++++++++----
 1 file changed, 35 insertions(+), 4 deletions(-)

diff --git a/compiler/browcol.pas b/compiler/browcol.pas
index 90bb922af9..01701174ce 100644
--- a/compiler/browcol.pas
+++ b/compiler/browcol.pas
@@ -400,9 +400,13 @@ begin
     begin
       OLI:=Left; ORI:=Right;
       Mid:=Left+(Right-Left) div 2;
-      LeftP:=At(Left); RightP:=At(Right); MidP:=At(Mid);
-      LeftS:=Upper(LeftP^.GetName); MidS:=Upper(MidP^.GetName);
+      MidP:=At(Mid);
+{$ifdef DEBUG}
+      LeftP:=At(Left); RightP:=At(Right);
+      LeftS:=Upper(LeftP^.GetName);
       RightS:=Upper(RightP^.GetName);
+{$endif DEBUG}
+      MidS:=Upper(MidP^.GetName);
       if copy(MidS,1,length(UpS))=UpS then
         begin
           Idx:=Mid;
@@ -414,7 +418,31 @@ begin
         else
           Left:=Mid;
       if (OLI=Left) and (ORI=Right) then
-        Break;
+        begin
+          if idX<>-1 then
+            break;
+          if Mid=Left then
+            begin
+              RightP:=At(Right);
+              RightS:=Upper(RightP^.GetName);
+              if copy(RightS,1,length(UpS))=UpS then
+                begin
+                  Idx:=Right;
+                  FoundS:=RightS;
+                end;
+            end;
+          if Mid=Right then
+            begin
+              LeftP:=At(Left);
+              LeftS:=Upper(LeftP^.GetName);
+              if copy(LeftS,1,length(UpS))=UpS then
+                begin
+                  Idx:=Left;
+                  FoundS:=LeftS;
+                end;
+            end;
+          Break;
+        end;
     end;
   end;
   LookUp:=FoundS;
@@ -1761,7 +1789,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.35  2000-03-08 12:25:29  pierre
+  Revision 1.36  2000-03-13 20:28:12  pierre
+   * X was not found in TSortedSymbolCollection.LookUp
+
+  Revision 1.35  2000/03/08 12:25:29  pierre
    * more fixes for TSymbol
 
   Revision 1.34  2000/03/07 21:55:59  pierre