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

* extend theapthread test to explicitly test freeing of block after owned-by thread exits

Browse Source 
git-svn-id: trunk@7650 -
This commit is contained in:
micha 2007-06-13 20:29:08 +00:00
parent c226f6fd44
commit b667ea06ba
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/theapthread.pp
View File

@ -16,10 +16,13 @@ type
procedure execute; override;
end;
const
fifolength = 1024;
var
readindex: integer;
writeindex: integer;
fifo: array[0..1023] of pointer;
fifo: array[0..fifolength-1] of pointer;
shared: pointer;
done: boolean;
freefifolock: trtlcriticalsection;
@ -64,7 +67,7 @@ begin
k := 0;
while not done do
begin
if ((writeindex+1) mod 1024) <> readindex then
if ((writeindex+1) mod fifolength) <> readindex then
begin
freemem(fifo[writeindex]);
fifo[writeindex] := getmem(((writeindex*17) mod 520)+8);
@ -80,8 +83,10 @@ begin
end;
end;
freearray(p, sizeof(p) div sizeof(pointer));
sleep(200);
entercriticalsection(freefifolock);
freearray(fifo, sizeof(fifo) div sizeof(pointer));
freemem(shared);
leavecriticalsection(freefifolock);
end;
@ -101,7 +106,7 @@ begin
begin
freemem(fifo[readindex]);
fifo[readindex] := getmem(((writeindex*17) mod 520)+8);
readindex := (readindex + 1) mod 1024;
readindex := (readindex + 1) mod fifolength;
end else begin
exercise_heap(p,i,j);
inc(k);
@ -112,6 +117,7 @@ begin
end;
end;
end;
shared := getmem(12);
leavecriticalsection(freefifolock);
freearray(p, sizeof(p) div sizeof(pointer));
end;
@ -119,13 +125,11 @@ end;
procedure tproducethread.execute;
begin
producer;
sleep(100);
end;
procedure tconsumethread.execute;
begin
consumer;
sleep(100);
end;
var
@ -139,7 +143,7 @@ begin
writeindex := 0;
produce_thread := tproducethread.create(false);
consume_thread := tconsumethread.create(false);
sleep(10000);
sleep(3000);
done := true;
produce_thread.waitfor;
consume_thread.waitfor;