paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 02:09:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* X was not found in TSortedSymbolCollection.LookUp

Browse Source
This commit is contained in:
pierre 2000-03-13 20:28:12 +00:00
parent 34c8f49271
commit 3527bd4fd0
1 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/browcol.pas
View File

@ -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