mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Concurrent access

Browse source
This commit is contained in:
Alexander Koblov 2017-09-28 20:36:09 +00:00
commit b9b4a5559c
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/uwdxmodule.pas
View file

@ -1285,8 +1285,13 @@ end;
function TWDXModule.FileParamVSDetectStr(const aFile: TFile): Boolean;
begin
FParser.DetectStr := Self.DetectStr;
Result := FParser.TestFileResult(aFile);
EnterCriticalSection(FMutex);
try
FParser.DetectStr := Self.DetectStr;
Result := FParser.TestFileResult(aFile);
finally
LeaveCriticalsection(FMutex);
end;
end;
function TWDXModule.CallContentGetValueV(FileName: String; FieldName: String;