paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 12:12:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed initialize unitscopes, issue #33712

Browse Source 
git-svn-id: trunk@57847 -
This commit is contained in:
mattias 2018-05-08 17:05:05 +00:00
parent aa2b29544e
commit 014d35df8e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/definetemplates.pas
View File

@ -1781,6 +1781,7 @@ begin
RealCompilerFilename:='';
UnitPaths:=nil;
IncludePaths:=nil;
UnitScopes:=nil;
Defines:=nil;
Undefines:=nil;
@ -8582,11 +8583,12 @@ procedure TPCTargetConfigCache.LoadFromXMLConfig(XMLConfig: TXMLConfig;
end;
end;
procedure LoadSemicolonList(UnitScopes: TStrings; const ASubPath: string);
procedure LoadSemicolonList(out UnitScopes: TStrings; const ASubPath: string);
var
s, Scope: String;
p: Integer;
begin
UnitScopes:=TStringList.Create;
s:=XMLConfig.GetValue(Path+ASubPath,'');
p:=1;
while p<=length(s) do begin