/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
- { ---------------------------------------------------------------------
- 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;