diff options
Diffstat (limited to 'rtl/unix/sysutils.pp')
| -rw-r--r-- | rtl/unix/sysutils.pp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp index 0250daab92..1f2843454f 100644 --- a/rtl/unix/sysutils.pp +++ b/rtl/unix/sysutils.pp @@ -38,6 +38,9 @@ interface {$DEFINE HAS_LOCALTIMEZONEOFFSET} {$DEFINE HAS_GETTICKCOUNT64} +// this target has an fileflush implementation, don't include dummy +{$DEFINE SYSUTILS_HAS_FILEFLUSH_IMPL} + { used OS file system APIs use ansistring } {$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL} { OS has an ansistring/single byte environment variable API } @@ -458,6 +461,10 @@ begin FileOpen:=DoFileLocking(FileOpen, Mode); end; +function FileFlush(Handle: THandle): Boolean; +begin + Result:= fpfsync(handle)=0; +end; Function FileCreate (Const FileName : RawByteString) : Longint; |