PageRenderTime 38ms CodeModel.GetById 35ms app.highlight 2ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/libc/src/dirent.inc

https://github.com/slibre/freepascal
Pascal | 14 lines | 8 code | 3 blank | 3 comment | 0 complexity | a28f3bd7eca71388c2beb9aca7134c83 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{ ---------------------------------------------------------------------
 2    Macros from dirent.h
 3  ---------------------------------------------------------------------}
 4
 5function IFTODT(mode : __mode_t) : longint;
 6begin
 7   IFTODT:=(mode and $F000) shr 12;
 8end;
 9
10function DTTOIF(dirtype : longint) : __mode_t;
11begin
12   DTTOIF:=dirtype shl 12;
13end;
14