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: Unsafe typecast

Browse source
This commit is contained in:
Alexander Koblov 2019-02-21 17:57:10 +00:00
commit ef6ced623f
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/ufilefunctions.pas
View file

@ -414,11 +414,12 @@ begin
begin
if AFileSource.IsClass(TWfxPluginFileSource) then
begin
if IWfxPluginFileSource(AFileSource).WfxModule.ContentPlugin and
IWfxPluginFileSource(AFileSource).WfxModule.FileParamVSDetectStr(AFile) then
with AFileSource as IWfxPluginFileSource do
begin
Result := IWfxPluginFileSource(AFileSource).WfxModule.CallContentGetValueV(
AFile.FullPath, AFunc, AParam, 0);
if WfxModule.ContentPlugin and WfxModule.FileParamVSDetectStr(AFile) then
begin
Result := WfxModule.CallContentGetValueV(AFile.FullPath, AFunc, AParam, 0);
end;
end;
end
else if fspDirectAccess in AFileSource.Properties then