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

* added readbarriers as counterparts for the writebarriers (see

Browse Source 
"SMP BARRIER PAIRING"
    in https://www.kernel.org/doc/Documentation/memory-barriers.txt ), should
    fix sporadic crashes of the test

git-svn-id: trunk@27726 -
This commit is contained in:
Jonas Maebe 2014-05-03 16:16:17 +00:00
parent e704dd8d74
commit 20b8ade8ce
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/theapthread.pp
View File

@ -130,6 +130,10 @@ begin
begin
if ((pair.writeindex+1) mod fifolength) <> pair.readindex then
begin
{ counterpart for the writebarrier in the consumer: ensure that we see
the write to pair.fifo[pair.readindex] now that we've seen the write
to pair.readindex }
readbarrier;
freemem(pair.fifo[pair.writeindex]);
pair.fifo[pair.writeindex] := getmem(((pair.writeindex*17) mod 520)+8);
writebarrier;
@ -167,6 +171,10 @@ begin
begin
if pair.readindex <> pair.writeindex then
begin
{ counterpart for the writebarrier in the producer: ensure that we see
the write to pair.fifo[pair.writeindex] now that we've seen the write
to pair.writeindex }
readbarrier;
freemem(pair.fifo[pair.readindex]);
pair.fifo[pair.readindex] := getmem(((pair.writeindex*17) mod 520)+8);
writebarrier;