mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-15 06:02:39 +02:00
15 lines
349 B
PHP
15 lines
349 B
PHP
{ ---------------------------------------------------------------------
|
|
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;
|
|
|