paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +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,
frameworksearchpath : TSearchPathList;
packagesearchpath : TSearchPathList;
{ list of default namespaces }
namespacelist : TCmdStrList;
{ contains tpackageentry entries }
packagelist : TFPHashList;
autoloadunits : string;
@ -1492,6 +1494,7 @@ implementation
LinkLibraryAliases.Free;
LinkLibraryOrder.Free;
packagesearchpath.Free;
namespacelist.Free;
end;
procedure InitGlobals;
@ -1528,6 +1531,7 @@ implementation
objectsearchpath:=TSearchPathList.Create;
frameworksearchpath:=TSearchPathList.Create;
packagesearchpath:=TSearchPathList.Create;
namespacelist:=TCmdStrList.Create;
{ Def file }
usewindowapi:=false;