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/win/sysfile.inc | |
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/win/sysfile.inc')
-rw-r--r-- | rtl/win/sysfile.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc index 6771554d52..1882a4e985 100644 --- a/rtl/win/sysfile.inc +++ b/rtl/win/sysfile.inc @@ -28,7 +28,8 @@ procedure do_close(h : thandle); begin if do_isdevice(h) then exit; - CloseHandle(h); + if CloseHandle(h)=0 then + Errno2InOutRes(GetLastError); end; |