paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bug report 2086

Browse Source
This commit is contained in:
pierre 2002-08-26 13:49:18 +00:00
parent 95bb7e4066
commit 521f29fcca
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win32/system.pp
View File

@ -174,6 +174,9 @@ CONST
{ The process cannot access the file because } { The process cannot access the file because }
{ it is being used by another process. } { it is being used by another process. }
ERROR_SHARING_VIOLATION = 32; ERROR_SHARING_VIOLATION = 32;
{ A pipe has been closed on the other end }
{ Removing that error allows eof to works as on other OSes }
ERROR_BROKEN_PIPE = 109;
{$IFDEF MT} {$IFDEF MT}
threadvar threadvar
@ -424,7 +427,10 @@ begin
if readfile(h,pointer(addr),len,_result,nil)=0 then if readfile(h,pointer(addr),len,_result,nil)=0 then
Begin Begin
errno:=GetLastError; errno:=GetLastError;
Errno2InoutRes; if errno=ERROR_BROKEN_PIPE then
errno:=0
else
Errno2InoutRes;
end; end;
do_read:=_result; do_read:=_result;
end; end;
@ -1567,7 +1573,10 @@ end.
{ {
$Log$ $Log$
Revision 1.29 2002-07-28 20:43:49 florian Revision 1.30 2002-08-26 13:49:18 pierre
* fix bug report 2086
Revision 1.29 2002/07/28 20:43:49 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT