paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed on more handle:=-1 statement

Browse Source
This commit is contained in:
daniel 1999-01-06 10:11:06 +00:00
parent 0a8ddd4152
commit 1ae82e5987
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objects.pp
View File

@ -1210,7 +1210,7 @@ PROCEDURE TDosStream.Close;
BEGIN BEGIN
If (Handle <> InvalidHandle) Then FileClose(Handle); { Close the file } If (Handle <> InvalidHandle) Then FileClose(Handle); { Close the file }
Position := 0; { Zero the position } Position := 0; { Zero the position }
Handle := -1; { Handle now invalid } Handle := invalidhandle; { Handle now invalid }
END; END;
{--TDosStream---------------------------------------------------------------} {--TDosStream---------------------------------------------------------------}
@ -2692,7 +2692,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.22 1998-12-30 10:26:16 peter Revision 1.23 1999-01-06 10:11:06 daniel
* Removed on more handle:=-1 statement
Revision 1.22 1998/12/30 10:26:16 peter
* reinserted old version, because daniel skipped 3 versions !! * reinserted old version, because daniel skipped 3 versions !!
Revision 1.19 1998/12/18 17:21:28 peter Revision 1.19 1998/12/18 17:21:28 peter