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

* also synchronise the data sent from the main thread to the worker threads,

Browse Source 
as this can also be read by worker threads before any RTLEvent* has taken
    place

git-svn-id: trunk@34403 -
This commit is contained in:
Jonas Maebe 2016-08-31 17:23:59 +00:00
parent c327a07414
commit 565288bef0
1 changed files with 7 additions and 0 deletions

7
packages/fpmkunit/src/fpmkunit.pp
View File

@ -2843,6 +2843,8 @@ begin
RTLeventWaitFor(FNotifyStartTask,500);
if not FDone then
begin
{ synchronise with WriteBarrier in mainthread for same reason as above }
ReadBarrier;
FBuildEngine.log(vlInfo,'Compiling: '+APackage.Name);
FCompilationOK:=false;
try
@ -7525,6 +7527,11 @@ Var
// Instruct thread to compile package
AThread.APackage := CompilePackage;
AThread.APackage.FProcessing := true;
{ Commit changes before setting FDone to false, because the threads
only wait for an event 500ms at a time and hence way wake up
and see that FDone=false before the event is sent and the changes
are all committed by the event code }
WriteBarrier;
AThread.FDone:=False;
RTLeventSetEvent(AThread.NotifyStartTask);
end;