paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* (re)create the module's waitingforunit and local*searchpath fields when it

Browse Source 
is reset (mantis #28814)
   o if they are freed in end_of_parsing, they need to be recreated in case the
     unit needs to be recompiled anyway during the current run
   o in other cases they need to be reset since they will be repopulated during
     the recompilation

git-svn-id: trunk@34069 -
This commit is contained in:
Jonas Maebe 2016-07-05 21:01:55 +00:00
parent 360f2734eb
commit d4281d6111
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/fmodule.pas
View File

@ -815,6 +815,11 @@ implementation
resourcefiles:=TCmdStrList.Create;
pendingspecializations.free;
pendingspecializations:=tfphashobjectlist.create(false);
if assigned(waitingforunit) and
(waitingforunit.count<>0) then
internalerror(2016070501);
waitingforunit.free;
waitingforunit:=tfpobjectlist.create(false);;
linkunitofiles.Free;
linkunitofiles:=TLinkContainer.Create;
linkunitstaticlibs.Free;
@ -842,6 +847,16 @@ implementation
stringdispose(namespace);
tcinitcode.free;
tcinitcode:=nil;
localunitsearchpath.Free;
localunitsearchpath:=TSearchPathList.Create;
localobjectsearchpath.free;
localobjectsearchpath:=TSearchPathList.Create;
localincludesearchpath.free;
localincludesearchpath:=TSearchPathList.Create;
locallibrarysearchpath.free;
locallibrarysearchpath:=TSearchPathList.Create;
localframeworksearchpath.free;
localframeworksearchpath:=TSearchPathList.Create;
moduleoptions:=[];
is_dbginfo_written:=false;
crc:=0;