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: Compiling under Mac OS X

Browse source
This commit is contained in:
Alexander Koblov 2010-12-16 21:33:13 +00:00
commit 961890aec6
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/platform/uOSUtils.pas
View file

@ -1451,12 +1451,13 @@ begin
end;
{$ELSEIF DEFINED(DARWIN)}
var
theFileNameFSRef: FSRef;
theSourceFSRef,
theTargetFSRef: FSRef;
begin
Result:= False;
if (FSPathMakeRefWithOptions(PAnsiChar(FileName), kFSPathMakeRefDoNotFollowLeafSymlink, theFileNameFSRef, nil) = noErr) then
if (FSPathMakeRefWithOptions(PAnsiChar(FileName), kFSPathMakeRefDoNotFollowLeafSymlink, theSourceFSRef, nil) = noErr) then
begin
Result:= (FSMoveObjectToTrashSync(theFileNameFSRef, nil, kFSFileOperationDefaultOptions) = noErr);
Result:= (FSMoveObjectToTrashSync(theSourceFSRef, theTargetFSRef, kFSFileOperationDefaultOptions) = noErr);
end;
end;
{$ELSE}