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

* CloseSock is now a dummy (it called system.close, but this doesn't

Browse Source 
make any sense since itself can only be called by system.close) This
    caused an endless loop with my last changes where the mode of a
    textrec is set to fmClosed only after the closeFunc() has been called.
This commit is contained in:
Jonas Maebe 2000-05-22 12:38:51 +00:00
parent aeeee6ede1
commit d75d13eda1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/sockets.inc
View File

@ -54,7 +54,7 @@ end;
Procedure CloseSock(var F:text);
begin
Close(f);
{ Nothing special has to be done here }
end;
@ -165,7 +165,13 @@ begin
end;
{
$Log$
Revision 1.5 2000-02-09 16:59:31 peter
Revision 1.6 2000-05-22 12:38:51 jonas
* CloseSock is now a dummy (it called system.close, but this doesn't
make any sense since itself can only be called by system.close) This
caused an endless loop with my last changes where the mode of a
textrec is set to fmClosed only after the closeFunc() has been called.
Revision 1.5 2000/02/09 16:59:31 peter
* truncated log
Revision 1.4 2000/01/07 16:41:36 daniel