mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
13e8b3f23e
so the TMultiReadExclusiveWriteSynchronizer routines can be safely
executed even with the default thread manager -> removed ismultithread
checks, so that it keeps working even if ismultithread is set to true
between acquiring and freeing a lock (mantis #15619)
git-svn-id: trunk@14830 -
18 lines
266 B
ObjectPascal
18 lines
266 B
ObjectPascal
uses
|
|
{$ifdef unix}
|
|
cthreads,
|
|
{$endif}
|
|
sysutils;
|
|
|
|
var
|
|
F: TMultiReadExclusiveWriteSynchronizer;
|
|
begin
|
|
F:=TMultiReadExclusiveWriteSynchronizer.Create;
|
|
F.Beginwrite;
|
|
IsMultiThread:=true; //Culprit.
|
|
F.Endwrite;
|
|
F.Beginwrite;
|
|
F.Endwrite;
|
|
F.Free;
|
|
end.
|