paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not overwrite Inoutres in blockwrite with 101

Browse Source
This commit is contained in:
peter 2003-11-29 14:07:52 +00:00
parent b767dd8ca3
commit f534cdd91d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/file.inc
View File

@ -187,7 +187,7 @@ var
Result : Longint;
Begin
BlockWrite(f,Buf,Count,Result);
If (Result<Count) and (Count>0) Then
If (InOutRes=0) and (Result<Count) and (Count>0) Then
InOutRes:=101;
End;
@ -259,7 +259,7 @@ var
Result : Longint;
Begin
BlockRead(f,Buf,Count,Result);
If (Result<Count) and (Count>0) Then
If (InOutRes=0) and (Result<Count) and (Count>0) Then
InOutRes:=100;
End;
@ -412,7 +412,10 @@ End;
{
$Log$
Revision 1.6 2002-12-07 14:36:14 carl
Revision 1.7 2003-11-29 14:07:52 peter
* do not overwrite Inoutres in blockwrite with 101
Revision 1.6 2002/12/07 14:36:14 carl
- avoid warnings (add typecast)
Revision 1.5 2002/09/07 15:07:45 peter