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

* Fixed merging mistake of my last commit :/

Browse Source
This commit is contained in:
sg 2001-12-17 21:03:55 +00:00
parent 2d11981745
commit b26ce3c858
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/ssockets.pp
View File

@ -47,9 +47,9 @@ type
Procedure SetSocketOptions(Value : TSocketOptions);
Public
Constructor Create (AHandle : Longint);virtual;
destructor Destroy; override;
function Seek(Offset: Longint; Origin: Word): Longint; override;
Property SocketOptions : TSocketOptions Read FSocketOptions
destructor Destroy; override;
Write SetSocketOptions;
end;
@ -524,7 +524,10 @@ end.
{
$Log$
Revision 1.9 2001-12-17 20:21:35 sg
Revision 1.10 2001-12-17 21:03:55 sg
* Fixed merging mistake of my last commit :/
Revision 1.9 2001/12/17 20:21:35 sg
* Some cosmetic improvements (fixed wrong method visibilities etc.)
* TSocketStream now closes the underlying file handle upon destruction