paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed searching unitnames in stringlist

Browse Source 
git-svn-id: trunk@53393 -
This commit is contained in:
mattias 2016-11-21 12:13:33 +00:00
parent b8344eab11
commit 9d9b4ce60c
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -5401,7 +5401,7 @@ begin
GetFixupReferenceNames(CurRoot,ReferenceRootNames);
for j:=0 to ReferenceRootNames.Count-1 do begin
RefRootName:=ReferenceRootNames[j];
if UTF8SearchInStringList(LoadingReferenceNames,RefRootName)>=0
if SearchInStringListI(LoadingReferenceNames,RefRootName)>=0
then
continue;
ReferenceInstanceNames.Clear;

8
ide/sourcefilemanager.pas
View File

@ -1685,12 +1685,12 @@ begin
try
if not CodeToolBoss.FindUsedUnitNames(MainUnitInfo.Source,
MainUsesSection,ImplementationUsesSection) then exit;
if (UTF8SearchInStringList(MainUsesSection,'forms')<0)
and (UTF8SearchInStringList(ImplementationUsesSection,'forms')<0) then
if (SearchInStringListI(MainUsesSection,'forms')<0)
and (SearchInStringListI(ImplementationUsesSection,'forms')<0) then
exit;
// project uses lcl unit Forms
if (UTF8SearchInStringList(MainUsesSection,'interfaces')>=0)
or (UTF8SearchInStringList(ImplementationUsesSection,'interfaces')>=0) then
if (SearchInStringListI(MainUsesSection,'interfaces')>=0)
or (SearchInStringListI(ImplementationUsesSection,'interfaces')>=0) then
exit;
// project uses lcl unit Forms, but not unit interfaces
// this will result in strange linker error