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

* corrected format for seListenFailed

Browse Source
This commit is contained in:
armin 2004-09-23 18:55:21 +00:00
parent 35dde41997
commit 614b33d957
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/ssockets.pp
View File

@ -193,7 +193,7 @@ resourcestring
strHostNotFound = 'Host name resolution for "%s" failed.';
strSocketCreationFailed = 'Creation of socket failed: %s';
strSocketBindFailed = 'Binding of socket failed: %s';
strSocketListenFailed = 'Listening on port #%d failed: %s';
strSocketListenFailed = 'Listening on port #%d failed, error: %d';
strSocketConnectFailed = 'Connect to %s failed.';
strSocketAcceptFailed = 'Could not accept a client connection on socket: %d, error %d';
strSocketAcceptWouldBlock = 'Accept would block on socket: %d';
@ -326,7 +326,7 @@ begin
If Not FBound then
Bind;
If Not Sockets.Listen(FSocket,FQueueSize) then
Raise ESocketError.Create(seListenFailed,[FSocket]);
Raise ESocketError.Create(seListenFailed,[FSocket,SocketError]);
end;
Procedure TSocketServer.StartAccepting;
@ -600,7 +600,10 @@ end.
{
$Log$
Revision 1.23 2004-09-18 23:24:12 armin
Revision 1.24 2004-09-23 18:55:21 armin
* corrected format for seListenFailed
Revision 1.23 2004/09/18 23:24:12 armin
+ netwlibc support
* added error number to seAcceptFailed exception