paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid that constructor is proposed for code complete if const is given

Browse Source
This commit is contained in:
pierre 2002-03-22 16:43:27 +00:00
parent 042f7d5dda
commit 577030e45a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/wutils.pas
View File

@ -878,6 +878,9 @@ begin
if copy(MidS,1,length(UpS))=UpS then if copy(MidS,1,length(UpS))=UpS then
begin begin
Idx:=Mid; FoundS:=GetStr(MidP); Idx:=Mid; FoundS:=GetStr(MidP);
{ exit immediately if exact match PM }
If Length(MidS)=Length(UpS) then
break;
end; end;
if UpS<MidS then if UpS<MidS then
Right:=Mid Right:=Mid
@ -1236,7 +1239,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.6 2002-03-20 13:48:31 pierre Revision 1.7 2002-03-22 16:43:27 pierre
* avoid that constructor is proposed for code complete if const is given
Revision 1.6 2002/03/20 13:48:31 pierre
* avoid stack corruption in CharStr if count > 255 * avoid stack corruption in CharStr if count > 255
Revision 1.5 2001/11/18 20:18:54 peter Revision 1.5 2001/11/18 20:18:54 peter