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

- removed data race test with mixed and writers, because the modifications

Browse Source 
to the global variable in the read-locked sections could cause
    false positives regarding detecting whether nothing got changed
    during a write-locked section due to lack of read/write dependencies

git-svn-id: trunk@41165 -
This commit is contained in:
Jonas Maebe 2019-02-02 15:17:12 +00:00
parent 56fd8e1208
commit 20c4992ac9
1 changed files with 1 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
tests/test/units/sysutils/trwsync.pp
View File

@ -443,52 +443,7 @@ begin
w3.free;
w4.free;
{ now try some mixed readers/writers }
gcount:=0;
r1:=treadcounter.create;
r2:=treadcounter.create;
r3:=treadcounter.create;
r4:=treadcounter.create;
r5:=treadcounter.create;
r6:=treadcounter.create;
w1:=twritecounter.create;
w2:=twritecounter.create;
r1.resume;
r2.resume;
r3.resume;
r4.resume;
r5.resume;
r6.resume;
w1.resume;
w2.resume;
r1.waitfor;
r2.waitfor;
r3.waitfor;
r4.waitfor;
r5.waitfor;
r6.waitfor;
w1.waitfor;
w2.waitfor;
{ updating via the readcount must have caused data races }
if (gcount>=r1.localcount+r2.localcount+r3.localcount+r4.localcount+r5.localcount+r6.localcount+w1.localcount+w2.localcount) then
begin
writeln('error 3');
halt(3);
end;
r1.free;
r2.free;
r3.free;
r4.free;
r5.free;
r6.free;
w1.free;
w2.free;
{ mixed readers and writers without proper synchronisation }
{ mixed readers and writers with proper synchronisation }
gcount:=0;
rw1:=treadwritecounter.create(true);
rw2:=treadwritecounter.create(false);