mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Some fixes for compilation under BSD

Browse source
This commit is contained in:
Alexander Koblov 2011-01-29 18:17:51 +00:00
commit d74c3d7e4c
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/platform/unix/umyunix.pas
View file

@ -157,6 +157,9 @@ function fpLChown(path : pChar; owner : TUid; group : TGid): cInt; {$IFDEF FPC_U
function fpOpenDir(__name: PChar): pDir; cdecl; external libc name 'opendir';
function fpReadDir(__dirp: pDir): pDirent; cdecl; external libc name 'readdir64';
function fpCloseDir(__dirp: pDir): cInt; cdecl; external libc name 'closedir';
{$ELSE}
function fpReadDir(__dirp: pDir): pDirent; inline;
function fpCloseDir(__dirp: pDir): cInt; inline;
{$ENDIF}
function LinuxToWinAttr(pFileName: PChar; const srInfo: BaseUnix.Stat): Longint;
@ -198,6 +201,20 @@ end;
{$ENDIF}
{$IF NOT DEFINED(LINUX)}
function fpReadDir(__dirp: pDir): pDirent;
begin
Result:= BaseUnix.FpReaddir(__dirp^);
end;
function fpCloseDir(__dirp: pDir): cInt;
begin
Result:= BaseUnix.FpClosedir(__dirp^);
end;
{$ENDIF}
function LinuxToWinAttr(pFileName: PChar; const srInfo: BaseUnix.Stat): Longint;
begin
Result:= faArchive;