paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:19:16 +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:=''; RealCompilerFilename:='';
UnitPaths:=nil; UnitPaths:=nil;
IncludePaths:=nil; IncludePaths:=nil;
UnitScopes:=nil;
Defines:=nil; Defines:=nil;
Undefines:=nil; Undefines:=nil;
@ -8582,11 +8583,12 @@ procedure TPCTargetConfigCache.LoadFromXMLConfig(XMLConfig: TXMLConfig;
end; end;
end; end;
procedure LoadSemicolonList(UnitScopes: TStrings; const ASubPath: string); procedure LoadSemicolonList(out UnitScopes: TStrings; const ASubPath: string);
var var
s, Scope: String; s, Scope: String;
p: Integer; p: Integer;
begin begin
UnitScopes:=TStringList.Create;
s:=XMLConfig.GetValue(Path+ASubPath,''); s:=XMLConfig.GetValue(Path+ASubPath,'');
p:=1; p:=1;
while p<=length(s) do begin while p<=length(s) do begin