paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed reading fpc unit cache

Browse Source 
git-svn-id: trunk@52763 -
This commit is contained in:
mattias 2016-08-01 07:45:24 +00:00
parent b1067f3140
commit 79f1b32221
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/definetemplates.pas
View File

@ -8000,7 +8000,8 @@ begin
List:=TStringList.Create;
UnitList:=nil;
try
s:=XMLConfig.GetValue(Path+'Units/Value','');
SubPath:=Path+'Units/Value';
s:=XMLConfig.GetValue(SubPath,'');
List.Delimiter:=';';
List.StrictDelimiter:=true;
List.DelimitedText:=s;
@ -8008,8 +8009,8 @@ begin
for i:=0 to UnitList.Count-1 do begin
Filename:=TrimFilename(UnitList[i]);
Unit_Name:=ExtractFileNameOnly(Filename);
if (Unit_Name='') or not IsValidIdent(Unit_Name) then begin
DebugLn(['Warning: [TFPCTargetConfigCache.LoadFromXMLConfig] invalid unitname: ',s]);
if (Unit_Name='') or not IsDottedIdentifier(Unit_Name) then begin
DebugLn(['Warning: [TFPCTargetConfigCache.LoadFromXMLConfig] invalid unitname "',Unit_Name,'" in "',XMLConfig.Filename,'" at "',SubPath,'"']);
continue;
end;
if Units=nil then