paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add a global that will contain all default namespaces passed in as parameters

Browse Source 
git-svn-id: trunk@38914 -
This commit is contained in:
svenbarth 2018-05-05 17:18:34 +00:00
parent e7f29e9e28
commit b77b6b001f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/globals.pas
View File

@ -280,6 +280,8 @@ interface
includesearchpath, includesearchpath,
frameworksearchpath : TSearchPathList; frameworksearchpath : TSearchPathList;
packagesearchpath : TSearchPathList; packagesearchpath : TSearchPathList;
{ list of default namespaces }
namespacelist : TCmdStrList;
{ contains tpackageentry entries } { contains tpackageentry entries }
packagelist : TFPHashList; packagelist : TFPHashList;
autoloadunits : string; autoloadunits : string;
@ -1492,6 +1494,7 @@ implementation
LinkLibraryAliases.Free; LinkLibraryAliases.Free;
LinkLibraryOrder.Free; LinkLibraryOrder.Free;
packagesearchpath.Free; packagesearchpath.Free;
namespacelist.Free;
end; end;
procedure InitGlobals; procedure InitGlobals;
@ -1528,6 +1531,7 @@ implementation
objectsearchpath:=TSearchPathList.Create; objectsearchpath:=TSearchPathList.Create;
frameworksearchpath:=TSearchPathList.Create; frameworksearchpath:=TSearchPathList.Create;
packagesearchpath:=TSearchPathList.Create; packagesearchpath:=TSearchPathList.Create;
namespacelist:=TCmdStrList.Create;
{ Def file } { Def file }
usewindowapi:=false; usewindowapi:=false;