Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / packages / libc / src / dirent.inc
Size: Mime:
{ ---------------------------------------------------------------------
    Macros from dirent.h
  ---------------------------------------------------------------------}

function IFTODT(mode : __mode_t) : longint;
begin
   IFTODT:=(mode and $F000) shr 12;
end;

function DTTOIF(dirtype : longint) : __mode_t;
begin
   DTTOIF:=dirtype shl 12;
end;