diff options
author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-11-20 22:00:35 +0000 |
---|---|---|
committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-11-20 22:00:35 +0000 |
commit | d44cebf9971971c8a6a99721a416e3c4243c1e42 (patch) | |
tree | 337dd0a0326d46410cac839fd3813cc735f4a322 /rtl/unix | |
parent | b6b71fcd24af8903414c4493fec42a80209f3b66 (diff) | |
download | fpc-d44cebf9971971c8a6a99721a416e3c4243c1e42.tar.gz |
Call Errno2noutres if system call to close the handle fails in do_close for win and unix
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29095 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/unix')
-rw-r--r-- | rtl/unix/sysfile.inc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rtl/unix/sysfile.inc b/rtl/unix/sysfile.inc index 43dc57813a..f9f0c1583b 100644 --- a/rtl/unix/sysfile.inc +++ b/rtl/unix/sysfile.inc @@ -20,6 +20,8 @@ Begin repeat res:=Fpclose(cint(Handle)); until (res<>-1) or (geterrno<>ESysEINTR); + if res<>0 then + Errno2Inoutres; End; Procedure Do_Erase(p: pchar; pchangeable: boolean); |